home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 16.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 32 35 3a 35 | 39 20 31 39 39 35 0a 3b | 14:25:5|9 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 75 74 | 69 6c 73 2f 63 6c 2e 65 |/lisp/ut|ils/cl.e|
|00000090| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|000000a0| 69 6f 6e 20 31 39 2e 31 | 33 20 58 45 6d 61 63 73 |ion 19.1|3 XEmacs|
|000000b0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000c0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 32 |comp ver|sion 2.2|
|000000d0| 35 3b 20 31 2d 53 65 70 | 2d 39 34 2e 0a 3b 3b 3b |5; 1-Sep|-94..;;;|
|000000e0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000f0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000100| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000110| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000120| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000130| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000140| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000150| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000160| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000170| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000180| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|00000190| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001a0| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|000001b0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 | (err|or "This|
|000001c0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001d0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 2e |ed for E|macs 19.|
|000001e0| 22 29 29 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |"))..(by|te-code |
|000001f0| 22 c0 c1 21 ac 9c c2 c3 | 21 ab 84 c3 4a ac 85 0c |"..!....|!...J...|
|00000200| c5 99 ab 83 c6 aa 8a c7 | c8 0c 5c 22 ab 83 c9 aa |........|..\"....|
|00000210| 81 ca 11 c2 cb 21 ac 84 | cb cc 4d 88 c0 cd 21 ac |.....!..|..M...!.|
|00000220| 83 ce 16 0d c0 cf 21 ac | 83 ce 16 0f c0 87 22 20 |......!.|......" |
|00000230| 5b 62 6f 75 6e 64 70 20 | 63 6c 2d 65 6d 61 63 73 |[boundp |cl-emacs|
|00000240| 2d 74 79 70 65 20 66 62 | 6f 75 6e 64 70 20 65 70 |-type fb|oundp ep|
|00000250| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 20 65 6d 61 |och::ver|sion ema|
|00000260| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 20 |cs-versi|on "19" |
|00000270| 31 38 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |18 strin|g-match |
|00000280| 22 58 45 6d 61 63 73 22 | 20 6c 75 63 69 64 20 31 |"XEmacs"| lucid 1|
|00000290| 39 20 64 65 66 61 6c 69 | 61 73 20 66 73 65 74 20 |9 defali|as fset |
|000002a0| 63 6c 2d 6f 70 74 69 6d | 69 7a 65 2d 73 70 65 65 |cl-optim|ize-spee|
|000002b0| 64 20 31 20 63 6c 2d 6f | 70 74 69 6d 69 7a 65 2d |d 1 cl-o|ptimize-|
|000002c0| 73 61 66 65 74 79 5d 20 | 33 29 0a 28 64 65 66 76 |safety] |3).(defv|
|000002d0| 61 72 20 63 75 73 74 6f | 6d 2d 70 72 69 6e 74 2d |ar custo|m-print-|
|000002e0| 66 75 6e 63 74 69 6f 6e | 73 20 6e 69 6c 20 22 5c |function|s nil "\|
|000002f0| 0a 54 68 69 73 20 69 73 | 20 61 20 6c 69 73 74 20 |.This is| a list |
|00000300| 6f 66 20 66 75 6e 63 74 | 69 6f 6e 73 20 74 68 61 |of funct|ions tha|
|00000310| 74 20 66 6f 72 6d 61 74 | 20 75 73 65 72 20 6f 62 |t format| user ob|
|00000320| 6a 65 63 74 73 20 66 6f | 72 20 70 72 69 6e 74 69 |jects fo|r printi|
|00000330| 6e 67 2e 0a 45 61 63 68 | 20 66 75 6e 63 74 69 6f |ng..Each| functio|
|00000340| 6e 20 69 73 20 63 61 6c | 6c 65 64 20 69 6e 20 74 |n is cal|led in t|
|00000350| 75 72 6e 20 77 69 74 68 | 20 74 68 72 65 65 20 61 |urn with| three a|
|00000360| 72 67 75 6d 65 6e 74 73 | 3a 20 74 68 65 20 6f 62 |rguments|: the ob|
|00000370| 6a 65 63 74 2c 20 74 68 | 65 0a 73 74 72 65 61 6d |ject, th|e.stream|
|00000380| 2c 20 61 6e 64 20 74 68 | 65 20 70 72 69 6e 74 20 |, and th|e print |
|00000390| 6c 65 76 65 6c 20 28 63 | 75 72 72 65 6e 74 6c 79 |level (c|urrently|
|000003a0| 20 69 67 6e 6f 72 65 64 | 29 2e 20 20 49 66 20 69 | ignored|). If i|
|000003b0| 74 20 69 73 20 61 62 6c | 65 20 74 6f 0a 70 72 69 |t is abl|e to.pri|
|000003c0| 6e 74 20 74 68 65 20 6f | 62 6a 65 63 74 20 69 74 |nt the o|bject it|
|000003d0| 20 72 65 74 75 72 6e 73 | 20 74 72 75 65 3b 20 6f | returns| true; o|
|000003e0| 74 68 65 72 77 69 73 65 | 20 69 74 20 72 65 74 75 |therwise| it retu|
|000003f0| 72 6e 73 20 6e 69 6c 20 | 61 6e 64 20 74 68 65 0a |rns nil |and the.|
|00000400| 70 72 69 6e 74 65 72 20 | 70 72 6f 63 65 65 64 73 |printer |proceeds|
|00000410| 20 74 6f 20 74 68 65 20 | 6e 65 78 74 20 66 75 6e | to the |next fun|
|00000420| 63 74 69 6f 6e 20 6f 6e | 20 74 68 65 20 6c 69 73 |ction on| the lis|
|00000430| 74 2e 0a 0a 54 68 69 73 | 20 76 61 72 69 61 62 6c |t...This| variabl|
|00000440| 65 20 69 73 20 6e 6f 74 | 20 75 73 65 64 20 61 74 |e is not| used at|
|00000450| 20 70 72 65 73 65 6e 74 | 2c 20 62 75 74 20 69 74 | present|, but it|
|00000460| 20 69 73 20 64 65 66 69 | 6e 65 64 20 69 6e 20 68 | is defi|ned in h|
|00000470| 6f 70 65 73 20 74 68 61 | 74 0a 61 20 66 75 74 75 |opes tha|t.a futu|
|00000480| 72 65 20 45 6d 61 63 73 | 20 69 6e 74 65 72 70 72 |re Emacs| interpr|
|00000490| 65 74 65 72 20 77 69 6c | 6c 20 62 65 20 61 62 6c |eter wil|l be abl|
|000004a0| 65 20 74 6f 20 75 73 65 | 20 69 74 2e 22 29 0a 28 |e to use| it.").(|
|000004b0| 66 73 65 74 20 27 65 71 | 6c 20 23 5b 28 61 20 62 |fset 'eq|l #[(a b|
|000004c0| 29 20 22 08 a7 ab 84 08 | 09 9a 87 08 09 3d 87 22 |) ".....|.....=."|
|000004d0| 20 5b 61 20 62 5d 20 32 | 20 22 5c 0a 54 20 69 66 | [a b] 2| "\.T if|
|000004e0| 20 74 68 65 20 74 77 6f | 20 61 72 67 73 20 61 72 | the two| args ar|
|000004f0| 65 20 74 68 65 20 73 61 | 6d 65 20 4c 69 73 70 20 |e the sa|me Lisp |
|00000500| 6f 62 6a 65 63 74 2e 0a | 46 6c 6f 61 74 69 6e 67 |object..|Floating|
|00000510| 2d 70 6f 69 6e 74 20 6e | 75 6d 62 65 72 73 20 6f |-point n|umbers o|
|00000520| 66 20 65 71 75 61 6c 20 | 76 61 6c 75 65 20 61 72 |f equal |value ar|
|00000530| 65 20 60 65 71 6c 27 2c | 20 62 75 74 20 74 68 65 |e `eql',| but the|
|00000540| 79 20 6d 61 79 20 6e 6f | 74 20 62 65 20 60 65 71 |y may no|t be `eq|
|00000550| 27 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 69 6e 63 |'."]).(f|set 'inc|
|00000560| 66 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 70 |f '(macr|o . #[(p|
|00000570| 6c 61 63 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 78 |lace &op|tional x|
|00000580| 29 20 22 08 39 ab 90 c1 | 08 5c 6e ab 86 c3 08 5c |) ".9...|.\n....\|
|00000590| 6e 45 aa 83 c4 08 44 45 | 87 c5 c3 08 5c 6e ae 81 |nE....DE|....\n..|
|000005a0| c6 46 87 22 20 5b 70 6c | 61 63 65 20 73 65 74 71 |.F." [pl|ace setq|
|000005b0| 20 78 20 2b 20 31 2b 20 | 63 61 6c 6c 66 20 31 5d | x + 1+ |callf 1]|
|000005c0| 20 35 20 22 5c 0a 28 69 | 6e 63 66 20 50 4c 41 43 | 5 "\.(i|ncf PLAC|
|000005d0| 45 20 5b 58 5d 29 3a 20 | 69 6e 63 72 65 6d 65 6e |E [X]): |incremen|
|000005e0| 74 20 50 4c 41 43 45 20 | 62 79 20 58 20 28 31 20 |t PLACE |by X (1 |
|000005f0| 62 79 20 64 65 66 61 75 | 6c 74 29 2e 0a 50 4c 41 |by defau|lt)..PLA|
|00000600| 43 45 20 6d 61 79 20 62 | 65 20 61 20 73 79 6d 62 |CE may b|e a symb|
|00000610| 6f 6c 2c 20 6f 72 20 61 | 6e 79 20 67 65 6e 65 72 |ol, or a|ny gener|
|00000620| 61 6c 69 7a 65 64 20 76 | 61 72 69 61 62 6c 65 20 |alized v|ariable |
|00000630| 61 6c 6c 6f 77 65 64 20 | 62 79 20 60 73 65 74 66 |allowed |by `setf|
|00000640| 27 2e 0a 54 68 65 20 72 | 65 74 75 72 6e 20 76 61 |'..The r|eturn va|
|00000650| 6c 75 65 20 69 73 20 74 | 68 65 20 69 6e 63 72 65 |lue is t|he incre|
|00000660| 6d 65 6e 74 65 64 20 76 | 61 6c 75 65 20 6f 66 20 |mented v|alue of |
|00000670| 50 4c 41 43 45 2e 22 5d | 29 29 0a 28 66 73 65 74 |PLACE."]|)).(fset|
|00000680| 20 27 64 65 63 66 20 27 | 28 6d 61 63 72 6f 20 2e | 'decf '|(macro .|
|00000690| 20 23 5b 28 70 6c 61 63 | 65 20 26 6f 70 74 69 6f | #[(plac|e &optio|
|000006a0| 6e 61 6c 20 78 29 20 22 | 08 39 ab 90 c1 08 5c 6e |nal x) "|.9....\n|
|000006b0| ab 86 c3 08 5c 6e 45 aa | 83 c4 08 44 45 87 c5 c3 |....\nE.|...DE...|
|000006c0| 08 5c 6e ae 81 c6 46 87 | 22 20 5b 70 6c 61 63 65 |.\n...F.|" [place|
|000006d0| 20 73 65 74 71 20 78 20 | 2d 20 31 2d 20 63 61 6c | setq x |- 1- cal|
|000006e0| 6c 66 20 31 5d 20 35 20 | 22 5c 0a 28 64 65 63 66 |lf 1] 5 |"\.(decf|
|000006f0| 20 50 4c 41 43 45 20 5b | 58 5d 29 3a 20 64 65 63 | PLACE [|X]): dec|
|00000700| 72 65 6d 65 6e 74 20 50 | 4c 41 43 45 20 62 79 20 |rement P|LACE by |
|00000710| 58 20 28 31 20 62 79 20 | 64 65 66 61 75 6c 74 29 |X (1 by |default)|
|00000720| 2e 0a 50 4c 41 43 45 20 | 6d 61 79 20 62 65 20 61 |..PLACE |may be a|
|00000730| 20 73 79 6d 62 6f 6c 2c | 20 6f 72 20 61 6e 79 20 | symbol,| or any |
|00000740| 67 65 6e 65 72 61 6c 69 | 7a 65 64 20 76 61 72 69 |generali|zed vari|
|00000750| 61 62 6c 65 20 61 6c 6c | 6f 77 65 64 20 62 79 20 |able all|owed by |
|00000760| 60 73 65 74 66 27 2e 0a | 54 68 65 20 72 65 74 75 |`setf'..|The retu|
|00000770| 72 6e 20 76 61 6c 75 65 | 20 69 73 20 74 68 65 20 |rn value| is the |
|00000780| 64 65 63 72 65 6d 65 6e | 74 65 64 20 76 61 6c 75 |decremen|ted valu|
|00000790| 65 20 6f 66 20 50 4c 41 | 43 45 2e 22 5d 29 29 0a |e of PLA|CE."])).|
|000007a0| 28 66 73 65 74 20 27 70 | 6f 70 20 27 28 6d 61 63 |(fset 'p|op '(mac|
|000007b0| 72 6f 20 2e 20 23 5b 28 | 70 6c 61 63 65 29 20 22 |ro . #[(|place) "|
|000007c0| 08 39 ab 8c c1 c2 08 c3 | 08 c4 08 44 45 45 44 87 |.9......|...DEED.|
|000007d0| c5 08 21 87 22 20 5b 70 | 6c 61 63 65 20 63 61 72 |..!." [p|lace car|
|000007e0| 20 70 72 6f 67 31 20 73 | 65 74 71 20 63 64 72 20 | prog1 s|etq cdr |
|000007f0| 63 6c 2d 64 6f 2d 70 6f | 70 5d 20 37 20 22 5c 0a |cl-do-po|p] 7 "\.|
|00000800| 28 70 6f 70 20 50 4c 41 | 43 45 29 3a 20 72 65 6d |(pop PLA|CE): rem|
|00000810| 6f 76 65 20 61 6e 64 20 | 72 65 74 75 72 6e 20 74 |ove and |return t|
|00000820| 68 65 20 68 65 61 64 20 | 6f 66 20 74 68 65 20 6c |he head |of the l|
|00000830| 69 73 74 20 73 74 6f 72 | 65 64 20 69 6e 20 50 4c |ist stor|ed in PL|
|00000840| 41 43 45 2e 0a 41 6e 61 | 6c 6f 67 6f 75 73 20 74 |ACE..Ana|logous t|
|00000850| 6f 20 28 70 72 6f 67 31 | 20 28 63 61 72 20 50 4c |o (prog1| (car PL|
|00000860| 41 43 45 29 20 28 73 65 | 74 66 20 50 4c 41 43 45 |ACE) (se|tf PLACE|
|00000870| 20 28 63 64 72 20 50 4c | 41 43 45 29 29 29 2c 20 | (cdr PL|ACE))), |
|00000880| 74 68 6f 75 67 68 20 6d | 6f 72 65 0a 63 61 72 65 |though m|ore.care|
|00000890| 66 75 6c 20 61 62 6f 75 | 74 20 65 76 61 6c 75 61 |ful abou|t evalua|
|000008a0| 74 69 6e 67 20 65 61 63 | 68 20 61 72 67 75 6d 65 |ting eac|h argume|
|000008b0| 6e 74 20 6f 6e 6c 79 20 | 6f 6e 63 65 20 61 6e 64 |nt only |once and|
|000008c0| 20 69 6e 20 74 68 65 20 | 72 69 67 68 74 20 6f 72 | in the |right or|
|000008d0| 64 65 72 2e 0a 50 4c 41 | 43 45 20 6d 61 79 20 62 |der..PLA|CE may b|
|000008e0| 65 20 61 20 73 79 6d 62 | 6f 6c 2c 20 6f 72 20 61 |e a symb|ol, or a|
|000008f0| 6e 79 20 67 65 6e 65 72 | 61 6c 69 7a 65 64 20 76 |ny gener|alized v|
|00000900| 61 72 69 61 62 6c 65 20 | 61 6c 6c 6f 77 65 64 20 |ariable |allowed |
|00000910| 62 79 20 60 73 65 74 66 | 27 2e 22 5d 29 29 0a 28 |by `setf|'."])).(|
|00000920| 66 73 65 74 20 27 70 75 | 73 68 20 27 28 6d 61 63 |fset 'pu|sh '(mac|
|00000930| 72 6f 20 2e 20 23 5b 28 | 78 20 70 6c 61 63 65 29 |ro . #[(|x place)|
|00000940| 20 22 08 39 ab 88 c1 08 | c2 0b 08 45 45 87 c4 c2 | ".9....|...EE...|
|00000950| 0b 08 46 87 22 20 5b 70 | 6c 61 63 65 20 73 65 74 |..F." [p|lace set|
|00000960| 71 20 63 6f 6e 73 20 78 | 20 63 61 6c 6c 66 32 5d |q cons x| callf2]|
|00000970| 20 35 20 22 5c 0a 28 70 | 75 73 68 20 58 20 50 4c | 5 "\.(p|ush X PL|
|00000980| 41 43 45 29 3a 20 69 6e | 73 65 72 74 20 58 20 61 |ACE): in|sert X a|
|00000990| 74 20 74 68 65 20 68 65 | 61 64 20 6f 66 20 74 68 |t the he|ad of th|
|000009a0| 65 20 6c 69 73 74 20 73 | 74 6f 72 65 64 20 69 6e |e list s|tored in|
|000009b0| 20 50 4c 41 43 45 2e 0a | 41 6e 61 6c 6f 67 6f 75 | PLACE..|Analogou|
|000009c0| 73 20 74 6f 20 28 73 65 | 74 66 20 50 4c 41 43 45 |s to (se|tf PLACE|
|000009d0| 20 28 63 6f 6e 73 20 58 | 20 50 4c 41 43 45 29 29 | (cons X| PLACE))|
|000009e0| 2c 20 74 68 6f 75 67 68 | 20 6d 6f 72 65 20 63 61 |, though| more ca|
|000009f0| 72 65 66 75 6c 20 61 62 | 6f 75 74 0a 65 76 61 6c |reful ab|out.eval|
|00000a00| 75 61 74 69 6e 67 20 65 | 61 63 68 20 61 72 67 75 |uating e|ach argu|
|00000a10| 6d 65 6e 74 20 6f 6e 6c | 79 20 6f 6e 63 65 20 61 |ment onl|y once a|
|00000a20| 6e 64 20 69 6e 20 74 68 | 65 20 72 69 67 68 74 20 |nd in th|e right |
|00000a30| 6f 72 64 65 72 2e 20 20 | 50 4c 41 43 45 20 6d 61 |order. |PLACE ma|
|00000a40| 79 0a 62 65 20 61 20 73 | 79 6d 62 6f 6c 2c 20 6f |y.be a s|ymbol, o|
|00000a50| 72 20 61 6e 79 20 67 65 | 6e 65 72 61 6c 69 7a 65 |r any ge|neralize|
|00000a60| 64 20 76 61 72 69 61 62 | 6c 65 20 61 6c 6c 6f 77 |d variab|le allow|
|00000a70| 65 64 20 62 79 20 60 73 | 65 74 66 27 2e 22 5d 29 |ed by `s|etf'."])|
|00000a80| 29 0a 28 66 73 65 74 20 | 27 70 75 73 68 6e 65 77 |).(fset |'pushnew|
|00000a90| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 78 20 | '(macro| . #[(x |
|00000aa0| 70 6c 61 63 65 20 26 72 | 65 73 74 20 6b 65 79 73 |place &r|est keys|
|00000ab0| 29 20 22 08 39 ab 8a c1 | 08 c2 c3 0c 08 0d 24 45 |) ".9...|......$E|
|00000ac0| 87 c2 c6 c3 0c 08 0d 25 | 87 22 20 5b 70 6c 61 63 |.......%|." [plac|
|00000ad0| 65 20 73 65 74 71 20 6c | 69 73 74 2a 20 61 64 6a |e setq l|ist* adj|
|00000ae0| 6f 69 6e 20 78 20 6b 65 | 79 73 20 63 61 6c 6c 66 |oin x ke|ys callf|
|00000af0| 32 5d 20 37 20 22 5c 0a | 28 70 75 73 68 6e 65 77 |2] 7 "\.|(pushnew|
|00000b00| 20 58 20 50 4c 41 43 45 | 29 3a 20 69 6e 73 65 72 | X PLACE|): inser|
|00000b10| 74 20 58 20 61 74 20 74 | 68 65 20 68 65 61 64 20 |t X at t|he head |
|00000b20| 6f 66 20 74 68 65 20 6c | 69 73 74 20 69 66 20 6e |of the l|ist if n|
|00000b30| 6f 74 20 61 6c 72 65 61 | 64 79 20 74 68 65 72 65 |ot alrea|dy there|
|00000b40| 2e 0a 4c 69 6b 65 20 28 | 70 75 73 68 20 58 20 50 |..Like (|push X P|
|00000b50| 4c 41 43 45 29 2c 20 65 | 78 63 65 70 74 20 74 68 |LACE), e|xcept th|
|00000b60| 61 74 20 74 68 65 20 6c | 69 73 74 20 69 73 20 75 |at the l|ist is u|
|00000b70| 6e 6d 6f 64 69 66 69 65 | 64 20 69 66 20 58 20 69 |nmodifie|d if X i|
|00000b80| 73 20 60 65 71 6c 27 20 | 74 6f 0a 61 6e 20 65 6c |s `eql' |to.an el|
|00000b90| 65 6d 65 6e 74 20 61 6c | 72 65 61 64 79 20 6f 6e |ement al|ready on|
|00000ba0| 20 74 68 65 20 6c 69 73 | 74 2e 0a 4b 65 79 77 6f | the lis|t..Keywo|
|00000bb0| 72 64 73 20 73 75 70 70 | 6f 72 74 65 64 3a 20 20 |rds supp|orted: |
|00000bc0| 3a 74 65 73 74 20 3a 74 | 65 73 74 2d 6e 6f 74 20 |:test :t|est-not |
|00000bd0| 3a 6b 65 79 22 5d 29 29 | 0a 28 62 79 74 65 2d 63 |:key"]))|.(byte-c|
|00000be0| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 88 c4 c5 4d |ode "..M|...M...M|
|00000bf0| 88 c6 c7 4d 87 22 20 5b | 63 6c 2d 73 65 74 2d 65 |...M." [|cl-set-e|
|00000c00| 6c 74 20 23 5b 28 73 65 | 71 20 6e 20 76 61 6c 29 |lt #[(se|q n val)|
|00000c10| 20 22 08 3c ab 86 09 08 | 9b 5c 6e a0 87 08 09 5c | ".<....|.\n....\|
|00000c20| 6e 49 87 22 20 5b 73 65 | 71 20 6e 20 76 61 6c 5d |nI." [se|q n val]|
|00000c30| 20 33 5d 20 63 6c 2d 73 | 65 74 2d 6e 74 68 63 64 | 3] cl-s|et-nthcd|
|00000c40| 72 20 23 5b 28 6e 20 6c | 69 73 74 20 78 29 20 22 |r #[(n l|ist x) "|
|00000c50| 08 c1 58 ab 82 5c 6e 87 | 08 53 0b 9b 5c 6e a1 88 |..X..\n.|.S..\n..|
|00000c60| 0b 87 22 20 5b 6e 20 30 | 20 78 20 6c 69 73 74 5d |.." [n 0| x list]|
|00000c70| 20 32 5d 20 63 6c 2d 73 | 65 74 2d 62 75 66 66 65 | 2] cl-s|et-buffe|
|00000c80| 72 2d 73 75 62 73 74 72 | 69 6e 67 20 23 5b 28 73 |r-substr|ing #[(s|
|00000c90| 74 61 72 74 20 65 6e 64 | 20 76 61 6c 29 20 22 8a |tart end| val) ".|
|00000ca0| 08 09 7c 88 08 62 88 5c | 6e 63 88 5c 6e 29 87 22 |..|..b.\|nc.\n)."|
|00000cb0| 20 5b 73 74 61 72 74 20 | 65 6e 64 20 76 61 6c 5d | [start |end val]|
|00000cc0| 20 32 5d 20 63 6c 2d 73 | 65 74 2d 73 75 62 73 74 | 2] cl-s|et-subst|
|00000cd0| 72 69 6e 67 20 23 5b 28 | 73 74 72 20 73 74 61 72 |ring #[(|str star|
|00000ce0| 74 20 65 6e 64 20 76 61 | 6c 29 20 22 08 ab 8c 08 |t end va|l) "....|
|00000cf0| c1 57 ab 8a 08 5c 6e 47 | 5c 5c 10 aa 83 5c 6e 47 |.W...\nG|\\...\nG|
|00000d00| 10 0b c1 57 ab 84 0b 5c | 6e 5c 5c 13 0b c1 56 ad |...W...\|n\\...V.|
|00000d10| 84 5c 6e c1 0b 4f 0c 08 | 5c 6e 47 57 ad 84 5c 6e |.\n..O..|\nGW..\n|
|00000d20| 08 c5 4f 51 87 22 20 5b | 65 6e 64 20 30 20 73 74 |..OQ." [|end 0 st|
|00000d30| 72 20 73 74 61 72 74 20 | 76 61 6c 20 6e 69 6c 5d |r start |val nil]|
|00000d40| 20 35 5d 5d 20 32 29 0a | 28 66 73 65 74 20 27 77 | 5]] 2).|(fset 'w|
|00000d50| 68 65 6e 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |hen '(ma|cro . #[|
|00000d60| 28 63 6f 6e 64 20 26 72 | 65 73 74 20 62 6f 64 79 |(cond &r|est body|
|00000d70| 29 20 22 c0 09 c2 0b 42 | 45 87 22 20 5b 69 66 20 |) "....B|E." [if |
|00000d80| 63 6f 6e 64 20 70 72 6f | 67 6e 20 62 6f 64 79 5d |cond pro|gn body]|
|00000d90| 20 34 20 22 5c 0a 28 77 | 68 65 6e 20 43 4f 4e 44 | 4 "\.(w|hen COND|
|00000da0| 20 42 4f 44 59 2e 2e 2e | 29 3a 20 69 66 20 43 4f | BODY...|): if CO|
|00000db0| 4e 44 20 79 69 65 6c 64 | 73 20 6e 6f 6e 2d 6e 69 |ND yield|s non-ni|
|00000dc0| 6c 2c 20 64 6f 20 42 4f | 44 59 2c 20 65 6c 73 65 |l, do BO|DY, else|
|00000dd0| 20 72 65 74 75 72 6e 20 | 6e 69 6c 2e 22 5d 29 29 | return |nil."]))|
|00000de0| 0a 28 66 73 65 74 20 27 | 75 6e 6c 65 73 73 20 27 |.(fset '|unless '|
|00000df0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 63 6f 6e 64 |(macro .| #[(cond|
|00000e00| 20 26 72 65 73 74 20 62 | 6f 64 79 29 20 22 c0 09 | &rest b|ody) "..|
|00000e10| c2 0b 42 42 42 87 22 20 | 5b 69 66 20 63 6f 6e 64 |..BBB." |[if cond|
|00000e20| 20 6e 69 6c 20 62 6f 64 | 79 5d 20 34 20 22 5c 0a | nil bod|y] 4 "\.|
|00000e30| 28 75 6e 6c 65 73 73 20 | 43 4f 4e 44 20 42 4f 44 |(unless |COND BOD|
|00000e40| 59 2e 2e 2e 29 3a 20 69 | 66 20 43 4f 4e 44 20 79 |Y...): i|f COND y|
|00000e50| 69 65 6c 64 73 20 6e 69 | 6c 2c 20 64 6f 20 42 4f |ields ni|l, do BO|
|00000e60| 44 59 2c 20 65 6c 73 65 | 20 72 65 74 75 72 6e 20 |DY, else| return |
|00000e70| 6e 69 6c 2e 22 5d 29 29 | 0a 28 62 79 74 65 2d 63 |nil."]))|.(byte-c|
|00000e80| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 c4 5c 22 88 c2 |ode "..M|....\"..|
|00000e90| c5 c6 5c 22 88 c2 c7 c8 | 5c 22 88 c2 c9 c4 5c 22 |..\"....|\"....\"|
|00000ea0| 88 c2 ca c4 5c 22 88 c2 | cb cc 5c 22 88 c2 cd ce |....\"..|..\"....|
|00000eb0| 5c 22 88 cf d0 21 ac 83 | d1 16 10 cf d2 21 ac 89 |\"...!..|.....!..|
|00000ec0| d3 4b c2 d3 d4 5c 22 88 | 16 12 d4 d5 4d 88 cf d6 |.K...\".|....M...|
|00000ed0| 21 ac 83 d1 16 16 d6 d7 | 4d 88 cf d8 21 ac 83 d1 |!.......|M...!...|
|00000ee0| 16 18 d9 da 4d 88 db dc | 4d 88 dd de 4d 88 cf df |....M...|M...M...|
|00000ef0| 21 ac 89 e0 dd 20 e1 5c | 22 e2 5f 16 1f d1 87 22 |!.... .\|"._...."|
|00000f00| 20 5b 63 6c 2d 6d 61 70 | 2d 65 78 74 65 6e 74 73 | [cl-map|-extents|
|00000f10| 20 23 5b 28 26 72 65 73 | 74 20 63 6c 2d 61 72 67 | #[(&res|t cl-arg|
|00000f20| 73 29 20 22 c0 c1 21 ab | 85 c2 c3 0c 5c 22 87 c0 |s) "..!.|....\"..|
|00000f30| c5 21 ad 84 c2 c5 0c 5c | 22 87 22 20 5b 66 62 6f |.!.....\|"." [fbo|
|00000f40| 75 6e 64 70 20 6e 65 78 | 74 2d 6f 76 65 72 6c 61 |undp nex|t-overla|
|00000f50| 79 2d 61 74 20 61 70 70 | 6c 79 20 63 6c 2d 6d 61 |y-at app|ly cl-ma|
|00000f60| 70 2d 6f 76 65 72 6c 61 | 79 73 20 63 6c 2d 61 72 |p-overla|ys cl-ar|
|00000f70| 67 73 20 6d 61 70 2d 65 | 78 74 65 6e 74 73 5d 20 |gs map-e|xtents] |
|00000f80| 33 5d 20 64 65 66 61 6c | 69 61 73 20 63 6c 2d 62 |3] defal|ias cl-b|
|00000f90| 6c 6f 63 6b 2d 77 72 61 | 70 70 65 72 20 69 64 65 |lock-wra|pper ide|
|00000fa0| 6e 74 69 74 79 20 63 6c | 2d 62 6c 6f 63 6b 2d 74 |ntity cl|-block-t|
|00000fb0| 68 72 6f 77 20 74 68 72 | 6f 77 20 76 61 6c 75 65 |hrow thr|ow value|
|00000fc0| 73 20 6c 69 73 74 20 76 | 61 6c 75 65 73 2d 6c 69 |s list v|alues-li|
|00000fd0| 73 74 20 6d 75 6c 74 69 | 70 6c 65 2d 76 61 6c 75 |st multi|ple-valu|
|00000fe0| 65 2d 6c 69 73 74 20 6d | 75 6c 74 69 70 6c 65 2d |e-list m|ultiple-|
|00000ff0| 76 61 6c 75 65 2d 63 61 | 6c 6c 20 61 70 70 6c 79 |value-ca|ll apply|
|00001000| 20 6e 74 68 2d 76 61 6c | 75 65 20 6e 74 68 20 62 | nth-val|ue nth b|
|00001010| 6f 75 6e 64 70 20 63 6c | 2d 6d 61 63 72 6f 2d 65 |oundp cl|-macro-e|
|00001020| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 6e 69 6c 20 63 |nvironme|nt nil c|
|00001030| 6c 2d 6f 6c 64 2d 6d 61 | 63 72 6f 65 78 70 61 6e |l-old-ma|croexpan|
|00001040| 64 20 6d 61 63 72 6f 65 | 78 70 61 6e 64 20 63 6c |d macroe|xpand cl|
|00001050| 2d 6d 61 63 72 6f 65 78 | 70 61 6e 64 20 23 5b 28 |-macroex|pand #[(|
|00001060| 63 6c 2d 6d 61 63 72 6f | 20 26 6f 70 74 69 6f 6e |cl-macro| &option|
|00001070| 61 6c 20 63 6c 2d 65 6e | 76 29 20 22 08 19 5c 6e |al cl-en|v) "..\n|
|00001080| 0b 08 5c 22 89 13 39 ab | 95 c4 0b 21 08 9e 41 ab |..\"..9.|...!..A.|
|00001090| 8d c4 0b 21 08 9e 89 1d | 41 40 29 13 aa 62 0b 29 |...!....|A@)..b.)|
|000010a0| 87 22 20 5b 63 6c 2d 65 | 6e 76 20 63 6c 2d 6d 61 |." [cl-e|nv cl-ma|
|000010b0| 63 72 6f 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |cro-envi|ronment |
|000010c0| 63 6c 2d 6f 6c 64 2d 6d | 61 63 72 6f 65 78 70 61 |cl-old-m|acroexpa|
|000010d0| 6e 64 20 63 6c 2d 6d 61 | 63 72 6f 20 73 79 6d 62 |nd cl-ma|cro symb|
|000010e0| 6f 6c 2d 6e 61 6d 65 20 | 78 5d 20 34 5d 20 63 6c |ol-name |x] 4] cl|
|000010f0| 2d 63 6f 6d 70 69 6c 69 | 6e 67 2d 66 69 6c 65 20 |-compili|ng-file |
|00001100| 23 5b 6e 69 6c 20 22 08 | ae 96 c1 c2 21 ae 91 c1 |#[nil ".|....!...|
|00001110| c2 21 ad 8c c3 c2 4a 21 | ad 86 c4 c2 4a 21 c5 9a |.!....J!|....J!..|
|00001120| 87 22 20 5b 63 6c 2d 63 | 6f 6d 70 69 6c 69 6e 67 |." [cl-c|ompiling|
|00001130| 2d 66 69 6c 65 20 62 6f | 75 6e 64 70 20 62 79 74 |-file bo|undp byt|
|00001140| 65 2d 63 6f 6d 70 69 6c | 65 2d 6f 75 74 70 75 74 |e-compil|e-output|
|00001150| 2d 62 75 66 66 65 72 20 | 62 75 66 66 65 72 70 20 |-buffer |bufferp |
|00001160| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 22 20 2a 43 |buffer-n|ame " *C|
|00001170| 6f 6d 70 69 6c 65 72 20 | 4f 75 74 70 75 74 2a 22 |ompiler |Output*"|
|00001180| 5d 20 32 5d 20 63 6c 2d | 70 72 6f 63 6c 61 69 6d |] 2] cl-|proclaim|
|00001190| 73 2d 64 65 66 65 72 72 | 65 64 20 70 72 6f 63 6c |s-deferr|ed procl|
|000011a0| 61 69 6d 20 23 5b 28 73 | 70 65 63 29 20 22 c0 c1 |aim #[(s|pec) "..|
|000011b0| 21 ab 87 c1 5c 6e c3 5c | 22 88 aa 84 5c 6e 0c 42 |!...\n.\|"...\n.B|
|000011c0| 14 c5 87 22 20 5b 66 62 | 6f 75 6e 64 70 20 63 6c |..." [fb|oundp cl|
|000011d0| 2d 64 6f 2d 70 72 6f 63 | 6c 61 69 6d 20 73 70 65 |-do-proc|laim spe|
|000011e0| 63 20 74 20 63 6c 2d 70 | 72 6f 63 6c 61 69 6d 73 |c t cl-p|roclaims|
|000011f0| 2d 64 65 66 65 72 72 65 | 64 20 6e 69 6c 5d 20 33 |-deferre|d nil] 3|
|00001200| 5d 20 64 65 63 6c 61 69 | 6d 20 28 6d 61 63 72 6f |] declai|m (macro|
|00001210| 20 2e 20 23 5b 28 26 72 | 65 73 74 20 73 70 65 63 | . #[(&r|est spec|
|00001220| 73 29 20 22 c0 c1 5c 6e | 5c 22 1b c4 20 ab 87 c5 |s) "..\n|\".. ...|
|00001230| c6 c7 0b 23 aa 83 c8 0b | 42 29 87 22 20 5b 6d 61 |...#....|B)." [ma|
|00001240| 70 63 61 72 20 23 5b 28 | 78 29 20 22 c0 c1 5c 6e |pcar #[(|x) "..\n|
|00001250| 44 44 87 22 20 5b 70 72 | 6f 63 6c 61 69 6d 20 71 |DD." [pr|oclaim q|
|00001260| 75 6f 74 65 20 78 5d 20 | 33 5d 20 73 70 65 63 73 |uote x] |3] specs|
|00001270| 20 62 6f 64 79 20 63 6c | 2d 63 6f 6d 70 69 6c 69 | body cl|-compili|
|00001280| 6e 67 2d 66 69 6c 65 20 | 6c 69 73 74 2a 20 65 76 |ng-file |list* ev|
|00001290| 61 6c 2d 77 68 65 6e 20 | 28 63 6f 6d 70 69 6c 65 |al-when |(compile|
|000012a0| 20 6c 6f 61 64 20 65 76 | 61 6c 29 20 70 72 6f 67 | load ev|al) prog|
|000012b0| 6e 5d 20 34 5d 29 20 63 | 6c 2d 72 61 6e 64 6f 6d |n] 4]) c|l-random|
|000012c0| 2d 74 69 6d 65 20 23 5b | 6e 69 6c 20 22 c0 c1 20 |-time #[|nil ".. |
|000012d0| 21 89 1a 47 1b c4 1d 0b | 53 89 13 c4 59 ab 8a 0d |!..G....|S...Y...|
|000012e0| c6 5f 5c 6e 0b 48 5c 5c | 15 aa 6e 0d 2b 87 22 20 |._\n.H\\|..n.+." |
|000012f0| 5b 63 6f 70 79 2d 73 65 | 71 75 65 6e 63 65 20 63 |[copy-se|quence c|
|00001300| 75 72 72 65 6e 74 2d 74 | 69 6d 65 2d 73 74 72 69 |urrent-t|ime-stri|
|00001310| 6e 67 20 74 69 6d 65 20 | 69 20 30 20 76 20 33 5d |ng time |i 0 v 3]|
|00001320| 20 34 5d 20 2a 67 65 6e | 73 79 6d 2d 63 6f 75 6e | 4] *gen|sym-coun|
|00001330| 74 65 72 2a 20 6c 6f 67 | 61 6e 64 20 31 30 32 33 |ter* log|and 1023|
|00001340| 20 31 30 30 5d 20 34 29 | 0a 28 66 73 65 74 20 27 | 100] 4)|.(fset '|
|00001350| 66 6c 6f 61 74 70 2d 73 | 61 66 65 20 23 5b 28 78 |floatp-s|afe #[(x|
|00001360| 29 20 22 08 a7 ad 83 08 | a8 3f 87 22 20 5b 78 5d |) ".....|.?." [x]|
|00001370| 20 31 20 22 5c 0a 54 20 | 69 66 20 4f 42 4a 45 43 | 1 "\.T |if OBJEC|
|00001380| 54 20 69 73 20 61 20 66 | 6c 6f 61 74 69 6e 67 20 |T is a f|loating |
|00001390| 70 6f 69 6e 74 20 6e 75 | 6d 62 65 72 2e 0a 4f 6e |point nu|mber..On|
|000013a0| 20 45 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 73 20 | Emacs v|ersions |
|000013b0| 74 68 61 74 20 6c 61 63 | 6b 20 66 6c 6f 61 74 69 |that lac|k floati|
|000013c0| 6e 67 2d 70 6f 69 6e 74 | 20 73 75 70 70 6f 72 74 |ng-point| support|
|000013d0| 2c 20 74 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 0a |, this f|unction.|
|000013e0| 61 6c 77 61 79 73 20 72 | 65 74 75 72 6e 73 20 6e |always r|eturns n|
|000013f0| 69 6c 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 70 6c |il."]).(|fset 'pl|
|00001400| 75 73 70 20 23 5b 28 78 | 29 20 22 08 c1 56 87 22 |usp #[(x|) "..V."|
|00001410| 20 5b 78 20 30 5d 20 32 | 20 22 5c 0a 54 20 69 66 | [x 0] 2| "\.T if|
|00001420| 20 4e 55 4d 42 45 52 20 | 69 73 20 70 6f 73 69 74 | NUMBER |is posit|
|00001430| 69 76 65 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6d |ive."]).|(fset 'm|
|00001440| 69 6e 75 73 70 20 23 5b | 28 78 29 20 22 08 c1 57 |inusp #[|(x) "..W|
|00001450| 87 22 20 5b 78 20 30 5d | 20 32 20 22 5c 0a 54 20 |." [x 0]| 2 "\.T |
|00001460| 69 66 20 4e 55 4d 42 45 | 52 20 69 73 20 6e 65 67 |if NUMBE|R is neg|
|00001470| 61 74 69 76 65 2e 22 5d | 29 0a 28 66 73 65 74 20 |ative."]|).(fset |
|00001480| 27 6f 64 64 70 20 23 5b | 28 78 29 20 22 c0 09 c2 |'oddp #[|(x) "...|
|00001490| 5c 22 c2 3d 87 22 20 5b | 6c 6f 67 61 6e 64 20 78 |\".=." [|logand x|
|000014a0| 20 31 5d 20 33 20 22 5c | 0a 54 20 69 66 20 49 4e | 1] 3 "\|.T if IN|
|000014b0| 54 45 47 45 52 20 69 73 | 20 6f 64 64 2e 22 5d 29 |TEGER is| odd."])|
|000014c0| 0a 28 66 73 65 74 20 27 | 65 76 65 6e 70 20 23 5b |.(fset '|evenp #[|
|000014d0| 28 78 29 20 22 c0 09 c2 | 5c 22 c3 3d 87 22 20 5b |(x) "...|\".=." [|
|000014e0| 6c 6f 67 61 6e 64 20 78 | 20 31 20 30 5d 20 33 20 |logand x| 1 0] 3 |
|000014f0| 22 5c 0a 54 20 69 66 20 | 49 4e 54 45 47 45 52 20 |"\.T if |INTEGER |
|00001500| 69 73 20 65 76 65 6e 2e | 22 5d 29 0a 28 66 73 65 |is even.|"]).(fse|
|00001510| 74 20 27 63 6c 2d 61 62 | 73 20 23 5b 28 78 29 20 |t 'cl-ab|s #[(x) |
|00001520| 22 08 c1 59 ab 82 08 87 | 08 5b 87 22 20 5b 78 20 |"..Y....|.[." [x |
|00001530| 30 5d 20 32 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |0] 2 "\.|Return t|
|00001540| 68 65 20 61 62 73 6f 6c | 75 74 65 20 76 61 6c 75 |he absol|ute valu|
|00001550| 65 20 6f 66 20 41 52 47 | 2e 22 5d 29 0a 28 62 79 |e of ARG|."]).(by|
|00001560| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 85 c2 c1 |te-code |"..!....|
|00001570| c3 5c 22 88 c4 c5 21 ac | 88 c6 c7 c8 c9 ca 20 24 |.\"...!.|...... $|
|00001580| 15 cb cc 21 16 0d cb ce | 21 16 0f d0 16 11 d0 16 |...!....|!.......|
|00001590| 12 d0 16 13 d0 16 14 d0 | 16 15 d0 16 16 d0 16 17 |........|........|
|000015a0| d0 16 18 c2 d9 da 5c 22 | 87 22 20 5b 66 62 6f 75 |......\"|." [fbou|
|000015b0| 6e 64 70 20 61 62 73 20 | 64 65 66 61 6c 69 61 73 |ndp abs |defalias|
|000015c0| 20 63 6c 2d 61 62 73 20 | 62 6f 75 6e 64 70 20 2a | cl-abs |boundp *|
|000015d0| 72 61 6e 64 6f 6d 2d 73 | 74 61 74 65 2a 20 76 65 |random-s|tate* ve|
|000015e0| 63 74 6f 72 20 63 6c 2d | 72 61 6e 64 6f 6d 2d 73 |ctor cl-|random-s|
|000015f0| 74 61 74 65 2d 74 61 67 | 20 2d 31 20 33 30 20 63 |tate-tag| -1 30 c|
|00001600| 6c 2d 72 61 6e 64 6f 6d | 2d 74 69 6d 65 20 65 76 |l-random|-time ev|
|00001610| 61 6c 20 28 6c 73 68 20 | 2d 31 20 2d 31 29 20 6d |al (lsh |-1 -1) m|
|00001620| 6f 73 74 2d 70 6f 73 69 | 74 69 76 65 2d 66 69 78 |ost-posi|tive-fix|
|00001630| 6e 75 6d 20 28 2d 20 2d | 31 20 28 6c 73 68 20 2d |num (- -|1 (lsh -|
|00001640| 31 20 2d 31 29 29 20 6d | 6f 73 74 2d 6e 65 67 61 |1 -1)) m|ost-nega|
|00001650| 74 69 76 65 2d 66 69 78 | 6e 75 6d 20 6e 69 6c 20 |tive-fix|num nil |
|00001660| 6d 6f 73 74 2d 70 6f 73 | 69 74 69 76 65 2d 66 6c |most-pos|itive-fl|
|00001670| 6f 61 74 20 6d 6f 73 74 | 2d 6e 65 67 61 74 69 76 |oat most|-negativ|
|00001680| 65 2d 66 6c 6f 61 74 20 | 6c 65 61 73 74 2d 70 6f |e-float |least-po|
|00001690| 73 69 74 69 76 65 2d 66 | 6c 6f 61 74 20 6c 65 61 |sitive-f|loat lea|
|000016a0| 73 74 2d 6e 65 67 61 74 | 69 76 65 2d 66 6c 6f 61 |st-negat|ive-floa|
|000016b0| 74 20 6c 65 61 73 74 2d | 70 6f 73 69 74 69 76 65 |t least-|positive|
|000016c0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 64 2d 66 6c 6f 61 |-normali|zed-floa|
|000016d0| 74 20 6c 65 61 73 74 2d | 6e 65 67 61 74 69 76 65 |t least-|negative|
|000016e0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 64 2d 66 6c 6f 61 |-normali|zed-floa|
|000016f0| 74 20 66 6c 6f 61 74 2d | 65 70 73 69 6c 6f 6e 20 |t float-|epsilon |
|00001700| 66 6c 6f 61 74 2d 6e 65 | 67 61 74 69 76 65 2d 65 |float-ne|gative-e|
|00001710| 70 73 69 6c 6f 6e 20 63 | 6f 70 79 2d 73 65 71 20 |psilon c|opy-seq |
|00001720| 63 6f 70 79 2d 73 65 71 | 75 65 6e 63 65 5d 20 35 |copy-seq|uence] 5|
|00001730| 29 0a 28 66 73 65 74 20 | 27 6d 61 70 63 61 72 2a |).(fset |'mapcar*|
|00001740| 20 23 5b 28 63 6c 2d 66 | 75 6e 63 20 63 6c 2d 78 | #[(cl-f|unc cl-x|
|00001750| 20 26 72 65 73 74 20 63 | 6c 2d 72 65 73 74 29 20 | &rest c|l-rest) |
|00001760| 22 08 ab b8 08 41 ac 89 | 09 3c ab 85 08 40 3c ac |"....A..|.<...@<.|
|00001770| 87 c2 0b 09 08 42 5c 22 | 87 c4 08 40 1d 1e 06 09 |.....B\"|...@....|
|00001780| ab 96 0d ab 93 0b 09 89 | 41 11 40 0d 89 41 15 40 |........|A.@..A.@|
|00001790| 5c 22 0e 06 42 16 06 aa | 67 0e 06 9f 2a 87 c7 0b |\"..B...|g...*...|
|000017a0| 09 5c 22 87 22 20 5b 63 | 6c 2d 72 65 73 74 20 63 |.\"." [c|l-rest c|
|000017b0| 6c 2d 78 20 63 6c 2d 6d | 61 70 63 61 72 2d 6d 61 |l-x cl-m|apcar-ma|
|000017c0| 6e 79 20 63 6c 2d 66 75 | 6e 63 20 6e 69 6c 20 63 |ny cl-fu|nc nil c|
|000017d0| 6c 2d 79 20 63 6c 2d 72 | 65 73 20 6d 61 70 63 61 |l-y cl-r|es mapca|
|000017e0| 72 5d 20 34 20 22 5c 0a | 41 70 70 6c 79 20 46 55 |r] 4 "\.|Apply FU|
|000017f0| 4e 43 54 49 4f 4e 20 74 | 6f 20 65 61 63 68 20 65 |NCTION t|o each e|
|00001800| 6c 65 6d 65 6e 74 20 6f | 66 20 53 45 51 2c 20 61 |lement o|f SEQ, a|
|00001810| 6e 64 20 6d 61 6b 65 20 | 61 20 6c 69 73 74 20 6f |nd make |a list o|
|00001820| 66 20 74 68 65 20 72 65 | 73 75 6c 74 73 2e 0a 49 |f the re|sults..I|
|00001830| 66 20 74 68 65 72 65 20 | 61 72 65 20 73 65 76 65 |f there |are seve|
|00001840| 72 61 6c 20 53 45 51 73 | 2c 20 46 55 4e 43 54 49 |ral SEQs|, FUNCTI|
|00001850| 4f 4e 20 69 73 20 63 61 | 6c 6c 65 64 20 77 69 74 |ON is ca|lled wit|
|00001860| 68 20 74 68 61 74 20 6d | 61 6e 79 20 61 72 67 75 |h that m|any argu|
|00001870| 6d 65 6e 74 73 2c 0a 61 | 6e 64 20 6d 61 70 70 69 |ments,.a|nd mappi|
|00001880| 6e 67 20 73 74 6f 70 73 | 20 61 73 20 73 6f 6f 6e |ng stops| as soon|
|00001890| 20 61 73 20 74 68 65 20 | 73 68 6f 72 74 65 73 74 | as the |shortest|
|000018a0| 20 6c 69 73 74 20 72 75 | 6e 73 20 6f 75 74 2e 20 | list ru|ns out. |
|000018b0| 20 57 69 74 68 20 6a 75 | 73 74 20 6f 6e 65 0a 53 | With ju|st one.S|
|000018c0| 45 51 2c 20 74 68 69 73 | 20 69 73 20 6c 69 6b 65 |EQ, this| is like|
|000018d0| 20 60 6d 61 70 63 61 72 | 27 2e 20 20 57 69 74 68 | `mapcar|'. With|
|000018e0| 20 73 65 76 65 72 61 6c | 2c 20 69 74 20 69 73 20 | several|, it is |
|000018f0| 6c 69 6b 65 20 74 68 65 | 20 43 6f 6d 6d 6f 6e 20 |like the| Common |
|00001900| 4c 69 73 70 0a 60 6d 61 | 70 63 61 72 27 20 66 75 |Lisp.`ma|pcar' fu|
|00001910| 6e 63 74 69 6f 6e 20 65 | 78 74 65 6e 64 65 64 20 |nction e|xtended |
|00001920| 74 6f 20 61 72 62 69 74 | 72 61 72 79 20 73 65 71 |to arbit|rary seq|
|00001930| 75 65 6e 63 65 20 74 79 | 70 65 73 2e 22 5d 29 0a |uence ty|pes."]).|
|00001940| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 5c |(byte-co|de "...\|
|00001950| 22 88 c0 c3 c4 5c 22 88 | c0 c5 c6 5c 22 87 22 20 |"....\".|...\"." |
|00001960| 5b 64 65 66 61 6c 69 61 | 73 20 66 69 72 73 74 20 |[defalia|s first |
|00001970| 63 61 72 20 72 65 73 74 | 20 63 64 72 20 65 6e 64 |car rest| cdr end|
|00001980| 70 20 6e 75 6c 6c 5d 20 | 33 29 0a 28 66 73 65 74 |p null] |3).(fset|
|00001990| 20 27 73 65 63 6f 6e 64 | 20 23 5b 28 78 29 20 22 | 'second| #[(x) "|
|000019a0| 08 41 40 87 22 20 5b 78 | 5d 20 31 20 22 5c 0a 52 |.A@." [x|] 1 "\.R|
|000019b0| 65 74 75 72 6e 20 74 68 | 65 20 73 65 63 6f 6e 64 |eturn th|e second|
|000019c0| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 74 68 65 20 | element| of the |
|000019d0| 6c 69 73 74 20 4c 49 53 | 54 2e 22 5d 29 0a 28 66 |list LIS|T."]).(f|
|000019e0| 73 65 74 20 27 74 68 69 | 72 64 20 23 5b 28 78 29 |set 'thi|rd #[(x)|
|000019f0| 20 22 08 41 41 40 87 22 | 20 5b 78 5d 20 31 20 22 | ".AA@."| [x] 1 "|
|00001a00| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 74 68 69 |\.Return| the thi|
|00001a10| 72 64 20 65 6c 65 6d 65 | 6e 74 20 6f 66 20 74 68 |rd eleme|nt of th|
|00001a20| 65 20 6c 69 73 74 20 4c | 49 53 54 2e 22 5d 29 0a |e list L|IST."]).|
|00001a30| 28 66 73 65 74 20 27 66 | 6f 75 72 74 68 20 23 5b |(fset 'f|ourth #[|
|00001a40| 28 78 29 20 22 c0 09 38 | 87 22 20 5b 33 20 78 5d |(x) "..8|." [3 x]|
|00001a50| 20 32 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 2 "\.Re|turn the|
|00001a60| 20 66 6f 75 72 74 68 20 | 65 6c 65 6d 65 6e 74 20 | fourth |element |
|00001a70| 6f 66 20 74 68 65 20 6c | 69 73 74 20 4c 49 53 54 |of the l|ist LIST|
|00001a80| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 66 69 66 74 |."]).(fs|et 'fift|
|00001a90| 68 20 23 5b 28 78 29 20 | 22 c0 09 38 87 22 20 5b |h #[(x) |"..8." [|
|00001aa0| 34 20 78 5d 20 32 20 22 | 5c 0a 52 65 74 75 72 6e |4 x] 2 "|\.Return|
|00001ab0| 20 74 68 65 20 66 69 66 | 74 68 20 65 6c 65 6d 65 | the fif|th eleme|
|00001ac0| 6e 74 20 6f 66 20 74 68 | 65 20 6c 69 73 74 20 4c |nt of th|e list L|
|00001ad0| 49 53 54 2e 22 5d 29 0a | 28 66 73 65 74 20 27 73 |IST."]).|(fset 's|
|00001ae0| 69 78 74 68 20 23 5b 28 | 78 29 20 22 c0 09 38 87 |ixth #[(|x) "..8.|
|00001af0| 22 20 5b 35 20 78 5d 20 | 32 20 22 5c 0a 52 65 74 |" [5 x] |2 "\.Ret|
|00001b00| 75 72 6e 20 74 68 65 20 | 73 69 78 74 68 20 65 6c |urn the |sixth el|
|00001b10| 65 6d 65 6e 74 20 6f 66 | 20 74 68 65 20 6c 69 73 |ement of| the lis|
|00001b20| 74 20 4c 49 53 54 2e 22 | 5d 29 0a 28 66 73 65 74 |t LIST."|]).(fset|
|00001b30| 20 27 73 65 76 65 6e 74 | 68 20 23 5b 28 78 29 20 | 'sevent|h #[(x) |
|00001b40| 22 c0 09 38 87 22 20 5b | 36 20 78 5d 20 32 20 22 |"..8." [|6 x] 2 "|
|00001b50| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 73 65 76 |\.Return| the sev|
|00001b60| 65 6e 74 68 20 65 6c 65 | 6d 65 6e 74 20 6f 66 20 |enth ele|ment of |
|00001b70| 74 68 65 20 6c 69 73 74 | 20 4c 49 53 54 2e 22 5d |the list| LIST."]|
|00001b80| 29 0a 28 66 73 65 74 20 | 27 65 69 67 68 74 68 20 |).(fset |'eighth |
|00001b90| 23 5b 28 78 29 20 22 c0 | 09 38 87 22 20 5b 37 20 |#[(x) ".|.8." [7 |
|00001ba0| 78 5d 20 32 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |x] 2 "\.|Return t|
|00001bb0| 68 65 20 65 69 67 68 74 | 68 20 65 6c 65 6d 65 6e |he eight|h elemen|
|00001bc0| 74 20 6f 66 20 74 68 65 | 20 6c 69 73 74 20 4c 49 |t of the| list LI|
|00001bd0| 53 54 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 6e 69 |ST."]).(|fset 'ni|
|00001be0| 6e 74 68 20 23 5b 28 78 | 29 20 22 c0 09 38 87 22 |nth #[(x|) "..8."|
|00001bf0| 20 5b 38 20 78 5d 20 32 | 20 22 5c 0a 52 65 74 75 | [8 x] 2| "\.Retu|
|00001c00| 72 6e 20 74 68 65 20 6e | 69 6e 74 68 20 65 6c 65 |rn the n|inth ele|
|00001c10| 6d 65 6e 74 20 6f 66 20 | 74 68 65 20 6c 69 73 74 |ment of |the list|
|00001c20| 20 4c 49 53 54 2e 22 5d | 29 0a 28 66 73 65 74 20 | LIST."]|).(fset |
|00001c30| 27 74 65 6e 74 68 20 23 | 5b 28 78 29 20 22 c0 09 |'tenth #|[(x) "..|
|00001c40| 38 87 22 20 5b 39 20 78 | 5d 20 32 20 22 5c 0a 52 |8." [9 x|] 2 "\.R|
|00001c50| 65 74 75 72 6e 20 74 68 | 65 20 74 65 6e 74 68 20 |eturn th|e tenth |
|00001c60| 65 6c 65 6d 65 6e 74 20 | 6f 66 20 74 68 65 20 6c |element |of the l|
|00001c70| 69 73 74 20 4c 49 53 54 | 2e 22 5d 29 0a 28 66 73 |ist LIST|."]).(fs|
|00001c80| 65 74 20 27 63 61 61 72 | 20 23 5b 28 78 29 20 22 |et 'caar| #[(x) "|
|00001c90| 08 40 40 87 22 20 5b 78 | 5d 20 31 20 22 5c 0a 52 |.@@." [x|] 1 "\.R|
|00001ca0| 65 74 75 72 6e 20 74 68 | 65 20 60 63 61 72 27 20 |eturn th|e `car' |
|00001cb0| 6f 66 20 74 68 65 20 60 | 63 61 72 27 20 6f 66 20 |of the `|car' of |
|00001cc0| 58 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 63 61 64 |X."]).(f|set 'cad|
|00001cd0| 72 20 23 5b 28 78 29 20 | 22 08 41 40 87 22 20 5b |r #[(x) |".A@." [|
|00001ce0| 78 5d 20 31 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |x] 1 "\.|Return t|
|00001cf0| 68 65 20 60 63 61 72 27 | 20 6f 66 20 74 68 65 20 |he `car'| of the |
|00001d00| 60 63 64 72 27 20 6f 66 | 20 58 2e 22 5d 29 0a 28 |`cdr' of| X."]).(|
|00001d10| 66 73 65 74 20 27 63 64 | 61 72 20 23 5b 28 78 29 |fset 'cd|ar #[(x)|
|00001d20| 20 22 08 40 41 87 22 20 | 5b 78 5d 20 31 20 22 5c | ".@A." |[x] 1 "\|
|00001d30| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 60 63 64 72 |.Return |the `cdr|
|00001d40| 27 20 6f 66 20 74 68 65 | 20 60 63 61 72 27 20 6f |' of the| `car' o|
|00001d50| 66 20 58 2e 22 5d 29 0a | 28 66 73 65 74 20 27 63 |f X."]).|(fset 'c|
|00001d60| 64 64 72 20 23 5b 28 78 | 29 20 22 08 41 41 87 22 |ddr #[(x|) ".AA."|
|00001d70| 20 5b 78 5d 20 31 20 22 | 5c 0a 52 65 74 75 72 6e | [x] 1 "|\.Return|
|00001d80| 20 74 68 65 20 60 63 64 | 72 27 20 6f 66 20 74 68 | the `cd|r' of th|
|00001d90| 65 20 60 63 64 72 27 20 | 6f 66 20 58 2e 22 5d 29 |e `cdr' |of X."])|
|00001da0| 0a 28 66 73 65 74 20 27 | 63 61 61 61 72 20 23 5b |.(fset '|caaar #[|
|00001db0| 28 78 29 20 22 08 40 40 | 40 87 22 20 5b 78 5d 20 |(x) ".@@|@." [x] |
|00001dc0| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|00001dd0| 60 63 61 72 27 20 6f 66 | 20 74 68 65 20 60 63 61 |`car' of| the `ca|
|00001de0| 72 27 20 6f 66 20 74 68 | 65 20 60 63 61 72 27 20 |r' of th|e `car' |
|00001df0| 6f 66 20 58 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |of X."])|.(fset '|
|00001e00| 63 61 61 64 72 20 23 5b | 28 78 29 20 22 08 41 40 |caadr #[|(x) ".A@|
|00001e10| 40 87 22 20 5b 78 5d 20 | 31 20 22 5c 0a 52 65 74 |@." [x] |1 "\.Ret|
|00001e20| 75 72 6e 20 74 68 65 20 | 60 63 61 72 27 20 6f 66 |urn the |`car' of|
|00001e30| 20 74 68 65 20 60 63 61 | 72 27 20 6f 66 20 74 68 | the `ca|r' of th|
|00001e40| 65 20 60 63 64 72 27 20 | 6f 66 20 58 2e 22 5d 29 |e `cdr' |of X."])|
|00001e50| 0a 28 66 73 65 74 20 27 | 63 61 64 61 72 20 23 5b |.(fset '|cadar #[|
|00001e60| 28 78 29 20 22 08 40 41 | 40 87 22 20 5b 78 5d 20 |(x) ".@A|@." [x] |
|00001e70| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|00001e80| 60 63 61 72 27 20 6f 66 | 20 74 68 65 20 60 63 64 |`car' of| the `cd|
|00001e90| 72 27 20 6f 66 20 74 68 | 65 20 60 63 61 72 27 20 |r' of th|e `car' |
|00001ea0| 6f 66 20 58 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |of X."])|.(fset '|
|00001eb0| 63 61 64 64 72 20 23 5b | 28 78 29 20 22 08 41 41 |caddr #[|(x) ".AA|
|00001ec0| 40 87 22 20 5b 78 5d 20 | 31 20 22 5c 0a 52 65 74 |@." [x] |1 "\.Ret|
|00001ed0| 75 72 6e 20 74 68 65 20 | 60 63 61 72 27 20 6f 66 |urn the |`car' of|
|00001ee0| 20 74 68 65 20 60 63 64 | 72 27 20 6f 66 20 74 68 | the `cd|r' of th|
|00001ef0| 65 20 60 63 64 72 27 20 | 6f 66 20 58 2e 22 5d 29 |e `cdr' |of X."])|
|00001f00| 0a 28 66 73 65 74 20 27 | 63 64 61 61 72 20 23 5b |.(fset '|cdaar #[|
|00001f10| 28 78 29 20 22 08 40 40 | 41 87 22 20 5b 78 5d 20 |(x) ".@@|A." [x] |
|00001f20| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|00001f30| 60 63 64 72 27 20 6f 66 | 20 74 68 65 20 60 63 61 |`cdr' of| the `ca|
|00001f40| 72 27 20 6f 66 20 74 68 | 65 20 60 63 61 72 27 20 |r' of th|e `car' |
|00001f50| 6f 66 20 58 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |of X."])|.(fset '|
|00001f60| 63 64 61 64 72 20 23 5b | 28 78 29 20 22 08 41 40 |cdadr #[|(x) ".A@|
|00001f70| 41 87 22 20 5b 78 5d 20 | 31 20 22 5c 0a 52 65 74 |A." [x] |1 "\.Ret|
|00001f80| 75 72 6e 20 74 68 65 20 | 60 63 64 72 27 20 6f 66 |urn the |`cdr' of|
|00001f90| 20 74 68 65 20 60 63 61 | 72 27 20 6f 66 20 74 68 | the `ca|r' of th|
|00001fa0| 65 20 60 63 64 72 27 20 | 6f 66 20 58 2e 22 5d 29 |e `cdr' |of X."])|
|00001fb0| 0a 28 66 73 65 74 20 27 | 63 64 64 61 72 20 23 5b |.(fset '|cddar #[|
|00001fc0| 28 78 29 20 22 08 40 41 | 41 87 22 20 5b 78 5d 20 |(x) ".@A|A." [x] |
|00001fd0| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|00001fe0| 60 63 64 72 27 20 6f 66 | 20 74 68 65 20 60 63 64 |`cdr' of| the `cd|
|00001ff0| 72 27 20 6f 66 20 74 68 | 65 20 60 63 61 72 27 20 |r' of th|e `car' |
|00002000| 6f 66 20 58 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |of X."])|.(fset '|
|00002010| 63 64 64 64 72 20 23 5b | 28 78 29 20 22 08 41 41 |cdddr #[|(x) ".AA|
|00002020| 41 87 22 20 5b 78 5d 20 | 31 20 22 5c 0a 52 65 74 |A." [x] |1 "\.Ret|
|00002030| 75 72 6e 20 74 68 65 20 | 60 63 64 72 27 20 6f 66 |urn the |`cdr' of|
|00002040| 20 74 68 65 20 60 63 64 | 72 27 20 6f 66 20 74 68 | the `cd|r' of th|
|00002050| 65 20 60 63 64 72 27 20 | 6f 66 20 58 2e 22 5d 29 |e `cdr' |of X."])|
|00002060| 0a 28 66 73 65 74 20 27 | 63 61 61 61 61 72 20 23 |.(fset '|caaaar #|
|00002070| 5b 28 78 29 20 22 08 40 | 40 40 40 87 22 20 5b 78 |[(x) ".@|@@@." [x|
|00002080| 5d 20 31 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 68 |] 1 "\.R|eturn th|
|00002090| 65 20 60 63 61 72 27 20 | 6f 66 20 74 68 65 20 60 |e `car' |of the `|
|000020a0| 63 61 72 27 20 6f 66 20 | 74 68 65 20 60 63 61 72 |car' of |the `car|
|000020b0| 27 20 6f 66 20 74 68 65 | 20 60 63 61 72 27 20 6f |' of the| `car' o|
|000020c0| 66 20 58 2e 22 5d 29 0a | 28 66 73 65 74 20 27 63 |f X."]).|(fset 'c|
|000020d0| 61 61 61 64 72 20 23 5b | 28 78 29 20 22 08 41 40 |aaadr #[|(x) ".A@|
|000020e0| 40 40 87 22 20 5b 78 5d | 20 31 20 22 5c 0a 52 65 |@@." [x]| 1 "\.Re|
|000020f0| 74 75 72 6e 20 74 68 65 | 20 60 63 61 72 27 20 6f |turn the| `car' o|
|00002100| 66 20 74 68 65 20 60 63 | 61 72 27 20 6f 66 20 74 |f the `c|ar' of t|
|00002110| 68 65 20 60 63 61 72 27 | 20 6f 66 20 74 68 65 20 |he `car'| of the |
|00002120| 60 63 64 72 27 20 6f 66 | 20 58 2e 22 5d 29 0a 28 |`cdr' of| X."]).(|
|00002130| 66 73 65 74 20 27 63 61 | 61 64 61 72 20 23 5b 28 |fset 'ca|adar #[(|
|00002140| 78 29 20 22 08 40 41 40 | 40 87 22 20 5b 78 5d 20 |x) ".@A@|@." [x] |
|00002150| 31 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |1 "\.Ret|urn the |
|00002160| 60 63 61 72 27 20 6f 66 | 20 74 68 65 20 60 63 61 |`car' of| the `ca|
|00002170| 72 27 20 6f 66 20 74 68 | 65 20 60 63 64 72 27 20 |r' of th|e `cdr' |
|00002180| 6f 66 20 74 68 65 20 60 | 63 61 72 27 20 6f 66 20 |of the `|car' of |
|00002190| 58 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 63 61 61 |X."]).(f|set 'caa|
|000021a0| 64 64 72 20 23 5b 28 78 | 29 20 22 08 41 41 40 40 |ddr #[(x|) ".AA@@|
|000021b0| 87 22 20 5b 78 5d 20 31 | 20 22 5c 0a 52 65 74 75 |." [x] 1| "\.Retu|
|000021c0| 72 6e 20 74 68 65 20 60 | 63 61 72 27 20 6f 66 20 |rn the `|car' of |
|000021d0| 74 68 65 20 60 63 61 72 | 27 20 6f 66 20 74 68 65 |the `car|' of the|
|000021e0| 20 60 63 64 72 27 20 6f | 66 20 74 68 65 20 60 63 | `cdr' o|f the `c|
|000021f0| 64 72 27 20 6f 66 20 58 | 2e 22 5d 29 0a 28 66 73 |dr' of X|."]).(fs|
|00002200| 65 74 20 27 63 61 64 61 | 61 72 20 23 5b 28 78 29 |et 'cada|ar #[(x)|
|00002210| 20 22 08 40 40 41 40 87 | 22 20 5b 78 5d 20 31 20 | ".@@A@.|" [x] 1 |
|00002220| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 60 63 |"\.Retur|n the `c|
|00002230| 61 72 27 20 6f 66 20 74 | 68 65 20 60 63 64 72 27 |ar' of t|he `cdr'|
|00002240| 20 6f 66 20 74 68 65 20 | 60 63 61 72 27 20 6f 66 | of the |`car' of|
|00002250| 20 74 68 65 20 60 63 61 | 72 27 20 6f 66 20 58 2e | the `ca|r' of X.|
|00002260| 22 5d 29 0a 28 66 73 65 | 74 20 27 63 61 64 61 64 |"]).(fse|t 'cadad|
|00002270| 72 20 23 5b 28 78 29 20 | 22 08 41 40 41 40 87 22 |r #[(x) |".A@A@."|
|00002280| 20 5b 78 5d 20 31 20 22 | 5c 0a 52 65 74 75 72 6e | [x] 1 "|\.Return|
|00002290| 20 74 68 65 20 60 63 61 | 72 27 20 6f 66 20 74 68 | the `ca|r' of th|
|000022a0| 65 20 60 63 64 72 27 20 | 6f 66 20 74 68 65 20 60 |e `cdr' |of the `|
|000022b0| 63 61 72 27 20 6f 66 20 | 74 68 65 20 60 63 64 72 |car' of |the `cdr|
|000022c0| 27 20 6f 66 20 58 2e 22 | 5d 29 0a 28 66 73 65 74 |' of X."|]).(fset|
|000022d0| 20 27 63 61 64 64 61 72 | 20 23 5b 28 78 29 20 22 | 'caddar| #[(x) "|
|000022e0| 08 40 41 41 40 87 22 20 | 5b 78 5d 20 31 20 22 5c |.@AA@." |[x] 1 "\|
|000022f0| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 60 63 61 72 |.Return |the `car|
|00002300| 27 20 6f 66 20 74 68 65 | 20 60 63 64 72 27 20 6f |' of the| `cdr' o|
|00002310| 66 20 74 68 65 20 60 63 | 64 72 27 20 6f 66 20 74 |f the `c|dr' of t|
|00002320| 68 65 20 60 63 61 72 27 | 20 6f 66 20 58 2e 22 5d |he `car'| of X."]|
|00002330| 29 0a 28 66 73 65 74 20 | 27 63 61 64 64 64 72 20 |).(fset |'cadddr |
|00002340| 23 5b 28 78 29 20 22 08 | 41 41 41 40 87 22 20 5b |#[(x) ".|AAA@." [|
|00002350| 78 5d 20 31 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |x] 1 "\.|Return t|
|00002360| 68 65 20 60 63 61 72 27 | 20 6f 66 20 74 68 65 20 |he `car'| of the |
|00002370| 60 63 64 72 27 20 6f 66 | 20 74 68 65 20 60 63 64 |`cdr' of| the `cd|
|00002380| 72 27 20 6f 66 20 74 68 | 65 20 60 63 64 72 27 20 |r' of th|e `cdr' |
|00002390| 6f 66 20 58 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |of X."])|.(fset '|
|000023a0| 63 64 61 61 61 72 20 23 | 5b 28 78 29 20 22 08 40 |cdaaar #|[(x) ".@|
|000023b0| 40 40 41 87 22 20 5b 78 | 5d 20 31 20 22 5c 0a 52 |@@A." [x|] 1 "\.R|
|000023c0| 65 74 75 72 6e 20 74 68 | 65 20 60 63 64 72 27 20 |eturn th|e `cdr' |
|000023d0| 6f 66 20 74 68 65 20 60 | 63 61 72 27 20 6f 66 20 |of the `|car' of |
|000023e0| 74 68 65 20 60 63 61 72 | 27 20 6f 66 20 74 68 65 |the `car|' of the|
|000023f0| 20 60 63 61 72 27 20 6f | 66 20 58 2e 22 5d 29 0a | `car' o|f X."]).|
|00002400| 28 66 73 65 74 20 27 63 | 64 61 61 64 72 20 23 5b |(fset 'c|daadr #[|
|00002410| 28 78 29 20 22 08 41 40 | 40 41 87 22 20 5b 78 5d |(x) ".A@|@A." [x]|
|00002420| 20 31 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 1 "\.Re|turn the|
|00002430| 20 60 63 64 72 27 20 6f | 66 20 74 68 65 20 60 63 | `cdr' o|f the `c|
|00002440| 61 72 27 20 6f 66 20 74 | 68 65 20 60 63 61 72 27 |ar' of t|he `car'|
|00002450| 20 6f 66 20 74 68 65 20 | 60 63 64 72 27 20 6f 66 | of the |`cdr' of|
|00002460| 20 58 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 63 64 | X."]).(|fset 'cd|
|00002470| 61 64 61 72 20 23 5b 28 | 78 29 20 22 08 40 41 40 |adar #[(|x) ".@A@|
|00002480| 41 87 22 20 5b 78 5d 20 | 31 20 22 5c 0a 52 65 74 |A." [x] |1 "\.Ret|
|00002490| 75 72 6e 20 74 68 65 20 | 60 63 64 72 27 20 6f 66 |urn the |`cdr' of|
|000024a0| 20 74 68 65 20 60 63 61 | 72 27 20 6f 66 20 74 68 | the `ca|r' of th|
|000024b0| 65 20 60 63 64 72 27 20 | 6f 66 20 74 68 65 20 60 |e `cdr' |of the `|
|000024c0| 63 61 72 27 20 6f 66 20 | 58 2e 22 5d 29 0a 28 66 |car' of |X."]).(f|
|000024d0| 73 65 74 20 27 63 64 61 | 64 64 72 20 23 5b 28 78 |set 'cda|ddr #[(x|
|000024e0| 29 20 22 08 41 41 40 41 | 87 22 20 5b 78 5d 20 31 |) ".AA@A|." [x] 1|
|000024f0| 20 22 5c 0a 52 65 74 75 | 72 6e 20 74 68 65 20 60 | "\.Retu|rn the `|
|00002500| 63 64 72 27 20 6f 66 20 | 74 68 65 20 60 63 61 72 |cdr' of |the `car|
|00002510| 27 20 6f 66 20 74 68 65 | 20 60 63 64 72 27 20 6f |' of the| `cdr' o|
|00002520| 66 20 74 68 65 20 60 63 | 64 72 27 20 6f 66 20 58 |f the `c|dr' of X|
|00002530| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 63 64 64 61 |."]).(fs|et 'cdda|
|00002540| 61 72 20 23 5b 28 78 29 | 20 22 08 40 40 41 41 87 |ar #[(x)| ".@@AA.|
|00002550| 22 20 5b 78 5d 20 31 20 | 22 5c 0a 52 65 74 75 72 |" [x] 1 |"\.Retur|
|00002560| 6e 20 74 68 65 20 60 63 | 64 72 27 20 6f 66 20 74 |n the `c|dr' of t|
|00002570| 68 65 20 60 63 64 72 27 | 20 6f 66 20 74 68 65 20 |he `cdr'| of the |
|00002580| 60 63 61 72 27 20 6f 66 | 20 74 68 65 20 60 63 61 |`car' of| the `ca|
|00002590| 72 27 20 6f 66 20 58 2e | 22 5d 29 0a 28 66 73 65 |r' of X.|"]).(fse|
|000025a0| 74 20 27 63 64 64 61 64 | 72 20 23 5b 28 78 29 20 |t 'cddad|r #[(x) |
|000025b0| 22 08 41 40 41 41 87 22 | 20 5b 78 5d 20 31 20 22 |".A@AA."| [x] 1 "|
|000025c0| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 60 63 64 |\.Return| the `cd|
|000025d0| 72 27 20 6f 66 20 74 68 | 65 20 60 63 64 72 27 20 |r' of th|e `cdr' |
|000025e0| 6f 66 20 74 68 65 20 60 | 63 61 72 27 20 6f 66 20 |of the `|car' of |
|000025f0| 74 68 65 20 60 63 64 72 | 27 20 6f 66 20 58 2e 22 |the `cdr|' of X."|
|00002600| 5d 29 0a 28 66 73 65 74 | 20 27 63 64 64 64 61 72 |]).(fset| 'cdddar|
|00002610| 20 23 5b 28 78 29 20 22 | 08 40 41 41 41 87 22 20 | #[(x) "|.@AAA." |
|00002620| 5b 78 5d 20 31 20 22 5c | 0a 52 65 74 75 72 6e 20 |[x] 1 "\|.Return |
|00002630| 74 68 65 20 60 63 64 72 | 27 20 6f 66 20 74 68 65 |the `cdr|' of the|
|00002640| 20 60 63 64 72 27 20 6f | 66 20 74 68 65 20 60 63 | `cdr' o|f the `c|
|00002650| 64 72 27 20 6f 66 20 74 | 68 65 20 60 63 61 72 27 |dr' of t|he `car'|
|00002660| 20 6f 66 20 58 2e 22 5d | 29 0a 28 66 73 65 74 20 | of X."]|).(fset |
|00002670| 27 63 64 64 64 64 72 20 | 23 5b 28 78 29 20 22 08 |'cddddr |#[(x) ".|
|00002680| 41 41 41 41 87 22 20 5b | 78 5d 20 31 20 22 5c 0a |AAAA." [|x] 1 "\.|
|00002690| 52 65 74 75 72 6e 20 74 | 68 65 20 60 63 64 72 27 |Return t|he `cdr'|
|000026a0| 20 6f 66 20 74 68 65 20 | 60 63 64 72 27 20 6f 66 | of the |`cdr' of|
|000026b0| 20 74 68 65 20 60 63 64 | 72 27 20 6f 66 20 74 68 | the `cd|r' of th|
|000026c0| 65 20 60 63 64 72 27 20 | 6f 66 20 58 2e 22 5d 29 |e `cdr' |of X."])|
|000026d0| 0a 28 66 73 65 74 20 27 | 6c 61 73 74 20 23 5b 28 |.(fset '|last #[(|
|000026e0| 78 20 26 6f 70 74 69 6f | 6e 61 6c 20 6e 29 20 22 |x &optio|nal n) "|
|000026f0| 08 ab a9 c1 5c 6e 1b 1c | 0b 3a ab 8a 0c 54 14 0b |....\n..|.:...T..|
|00002700| 89 41 13 88 aa 72 08 c1 | 58 ab 83 0b aa 8d 08 0c |.A...r..|X.......|
|00002710| 57 ab 87 0c 08 5a 5c 6e | 9b aa 81 5c 6e 2a 87 5c |W....Z\n|...\n*.\|
|00002720| 6e 41 3a ab 87 5c 6e 89 | 41 12 88 aa 74 5c 6e 87 |nA:..\n.|A...t\n.|
|00002730| 22 20 5b 6e 20 30 20 78 | 20 70 20 6d 5d 20 32 20 |" [n 0 x| p m] 2 |
|00002740| 22 5c 0a 52 65 74 75 72 | 6e 73 20 74 68 65 20 6c |"\.Retur|ns the l|
|00002750| 61 73 74 20 6c 69 6e 6b | 20 69 6e 20 74 68 65 20 |ast link| in the |
|00002760| 6c 69 73 74 20 4c 49 53 | 54 2e 0a 57 69 74 68 20 |list LIS|T..With |
|00002770| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 75 6d 65 6e |optional| argumen|
|00002780| 74 20 4e 2c 20 72 65 74 | 75 72 6e 73 20 4e 74 68 |t N, ret|urns Nth|
|00002790| 2d 74 6f 2d 6c 61 73 74 | 20 6c 69 6e 6b 20 28 64 |-to-last| link (d|
|000027a0| 65 66 61 75 6c 74 20 31 | 29 2e 22 5d 29 0a 28 66 |efault 1|)."]).(f|
|000027b0| 73 65 74 20 27 62 75 74 | 6c 61 73 74 20 23 5b 28 |set 'but|last #[(|
|000027c0| 78 20 26 6f 70 74 69 6f | 6e 61 6c 20 6e 29 20 22 |x &optio|nal n) "|
|000027d0| 08 ab 87 08 c1 58 ab 82 | 5c 6e 87 c3 c4 5c 6e 21 |.....X..|\n...\n!|
|000027e0| 08 5c 22 87 22 20 5b 6e | 20 30 20 78 20 6e 62 75 |.\"." [n| 0 x nbu|
|000027f0| 74 6c 61 73 74 20 63 6f | 70 79 2d 73 65 71 75 65 |tlast co|py-seque|
|00002800| 6e 63 65 5d 20 33 20 22 | 5c 0a 52 65 74 75 72 6e |nce] 3 "|\.Return|
|00002810| 73 20 61 20 63 6f 70 79 | 20 6f 66 20 4c 49 53 54 |s a copy| of LIST|
|00002820| 20 77 69 74 68 20 74 68 | 65 20 6c 61 73 74 20 4e | with th|e last N|
|00002830| 20 65 6c 65 6d 65 6e 74 | 73 20 72 65 6d 6f 76 65 | element|s remove|
|00002840| 64 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 6e 62 75 |d."]).(f|set 'nbu|
|00002850| 74 6c 61 73 74 20 23 5b | 28 78 20 26 6f 70 74 69 |tlast #[|(x &opti|
|00002860| 6f 6e 61 6c 20 6e 29 20 | 22 08 47 19 5c 6e ac 82 |onal n) |".G.\n..|
|00002870| c3 12 5c 6e 09 57 ad 8f | 5c 6e c4 56 ab 89 09 53 |..\n.W..|\n.V...S|
|00002880| 5c 6e 5a 08 9b c5 a1 88 | 08 29 87 22 20 5b 78 20 |\nZ.....|.)." [x |
|00002890| 6d 20 6e 20 31 20 30 20 | 6e 69 6c 5d 20 32 20 22 |m n 1 0 |nil] 2 "|
|000028a0| 5c 0a 4d 6f 64 69 66 69 | 65 73 20 4c 49 53 54 20 |\.Modifi|es LIST |
|000028b0| 74 6f 20 72 65 6d 6f 76 | 65 20 74 68 65 20 6c 61 |to remov|e the la|
|000028c0| 73 74 20 4e 20 65 6c 65 | 6d 65 6e 74 73 2e 22 5d |st N ele|ments."]|
|000028d0| 29 0a 28 66 73 65 74 20 | 27 6c 69 73 74 2a 20 23 |).(fset |'list* #|
|000028e0| 5b 28 61 72 67 20 26 72 | 65 73 74 20 72 65 73 74 |[(arg &r|est rest|
|000028f0| 29 20 22 08 ac 82 09 87 | 08 41 ac 85 09 08 40 42 |) ".....|.A....@B|
|00002900| 87 08 47 1a c3 08 21 1c | 5c 6e c5 5a 0c 9b 89 1e |..G...!.|\n.Z....|
|00002910| 06 89 41 40 a1 88 09 0c | 2b 42 87 22 20 5b 72 65 |..A@....|+B." [re|
|00002920| 73 74 20 61 72 67 20 6e | 20 63 6f 70 79 2d 73 65 |st arg n| copy-se|
|00002930| 71 75 65 6e 63 65 20 63 | 6f 70 79 20 32 20 6c 61 |quence c|opy 2 la|
|00002940| 73 74 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 20 |st] 3 "\|.Return |
|00002950| 61 20 6e 65 77 20 6c 69 | 73 74 20 77 69 74 68 20 |a new li|st with |
|00002960| 73 70 65 63 69 66 69 65 | 64 20 61 72 67 73 20 61 |specifie|d args a|
|00002970| 73 20 65 6c 65 6d 65 6e | 74 73 2c 20 63 6f 6e 73 |s elemen|ts, cons|
|00002980| 27 64 20 74 6f 20 6c 61 | 73 74 20 61 72 67 2e 0a |'d to la|st arg..|
|00002990| 54 68 75 73 2c 20 60 28 | 6c 69 73 74 2a 20 41 20 |Thus, `(|list* A |
|000029a0| 42 20 43 20 44 29 27 20 | 69 73 20 65 71 75 69 76 |B C D)' |is equiv|
|000029b0| 61 6c 65 6e 74 20 74 6f | 20 60 28 6e 63 6f 6e 63 |alent to| `(nconc|
|000029c0| 20 28 6c 69 73 74 20 41 | 20 42 20 43 29 20 44 29 | (list A| B C) D)|
|000029d0| 27 2c 20 6f 72 20 74 6f | 0a 60 28 63 6f 6e 73 20 |', or to|.`(cons |
|000029e0| 41 20 28 63 6f 6e 73 20 | 42 20 28 63 6f 6e 73 20 |A (cons |B (cons |
|000029f0| 43 20 44 29 29 29 27 2e | 22 5d 29 0a 28 66 73 65 |C D)))'.|"]).(fse|
|00002a00| 74 20 27 6c 64 69 66 66 | 20 23 5b 28 6c 69 73 74 |t 'ldiff| #[(list|
|00002a10| 20 73 75 62 6c 69 73 74 | 29 20 22 c0 19 5c 6e 3a | sublist|) "..\n:|
|00002a20| ab 8f 5c 6e 0b 3d ac 8a | 5c 6e 89 41 12 40 09 42 |..\n.=..|\n.A.@.B|
|00002a30| 11 aa 6d 09 9f 29 87 22 | 20 5b 6e 69 6c 20 72 65 |..m..)."| [nil re|
|00002a40| 73 20 6c 69 73 74 20 73 | 75 62 6c 69 73 74 5d 20 |s list s|ublist] |
|00002a50| 32 20 22 5c 0a 52 65 74 | 75 72 6e 20 61 20 63 6f |2 "\.Ret|urn a co|
|00002a60| 70 79 20 6f 66 20 4c 49 | 53 54 20 77 69 74 68 20 |py of LI|ST with |
|00002a70| 74 68 65 20 74 61 69 6c | 20 53 55 42 4c 49 53 54 |the tail| SUBLIST|
|00002a80| 20 72 65 6d 6f 76 65 64 | 2e 22 5d 29 0a 28 66 73 | removed|."]).(fs|
|00002a90| 65 74 20 27 63 6f 70 79 | 2d 6c 69 73 74 20 23 5b |et 'copy|-list #[|
|00002aa0| 28 6c 69 73 74 29 20 22 | 08 3a ab 98 c1 1a 08 3a |(list) "|.:.....:|
|00002ab0| ab 8a 08 89 41 10 40 5c | 6e 42 12 aa 72 5c 6e 9f |....A.@\|nB..r\n.|
|00002ac0| 5c 6e 08 a1 88 29 87 08 | 40 87 22 20 5b 6c 69 73 |\n...)..|@." [lis|
|00002ad0| 74 20 6e 69 6c 20 72 65 | 73 5d 20 33 20 22 5c 0a |t nil re|s] 3 "\.|
|00002ae0| 52 65 74 75 72 6e 20 61 | 20 63 6f 70 79 20 6f 66 |Return a| copy of|
|00002af0| 20 61 20 6c 69 73 74 2c | 20 77 68 69 63 68 20 6d | a list,| which m|
|00002b00| 61 79 20 62 65 20 61 20 | 64 6f 74 74 65 64 20 6c |ay be a |dotted l|
|00002b10| 69 73 74 2e 0a 54 68 65 | 20 65 6c 65 6d 65 6e 74 |ist..The| element|
|00002b20| 73 20 6f 66 20 74 68 65 | 20 6c 69 73 74 20 61 72 |s of the| list ar|
|00002b30| 65 20 6e 6f 74 20 63 6f | 70 69 65 64 2c 20 6a 75 |e not co|pied, ju|
|00002b40| 73 74 20 74 68 65 20 6c | 69 73 74 20 73 74 72 75 |st the l|ist stru|
|00002b50| 63 74 75 72 65 20 69 74 | 73 65 6c 66 2e 22 5d 29 |cture it|self."])|
|00002b60| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4d |.(byte-c|ode "..M|
|00002b70| 88 c2 c3 21 ab 86 c4 c3 | 4b 21 ac 85 c5 c3 c0 5c |...!....|K!.....\|
|00002b80| 22 88 c5 c6 c7 5c 22 88 | c5 c8 c9 5c 22 88 c5 ca |"....\".|...\"...|
|00002b90| cb 5c 22 88 c5 cc cd 5c | 22 88 c5 ce cf 5c 22 88 |.\"....\|"....\".|
|00002ba0| c5 d0 d1 5c 22 87 22 20 | 5b 63 6c 2d 6d 61 63 6c |...\"." |[cl-macl|
|00002bb0| 69 73 70 2d 6d 65 6d 62 | 65 72 20 23 5b 28 69 74 |isp-memb|er #[(it|
|00002bc0| 65 6d 20 6c 69 73 74 29 | 20 22 08 ab 8c 09 08 40 |em list)| ".....@|
|00002bd0| 9a ac 86 08 41 89 10 ac | 74 08 87 22 20 5b 6c 69 |....A...|t.." [li|
|00002be0| 73 74 20 69 74 65 6d 5d | 20 33 5d 20 66 62 6f 75 |st item]| 3] fbou|
|00002bf0| 6e 64 70 20 6d 65 6d 62 | 65 72 20 73 75 62 72 70 |ndp memb|er subrp|
|00002c00| 20 64 65 66 61 6c 69 61 | 73 20 63 6c 2d 6d 65 6d | defalia|s cl-mem|
|00002c10| 62 65 72 20 6d 65 6d 71 | 20 63 6c 2d 66 6c 6f 6f |ber memq| cl-floo|
|00002c20| 72 20 66 6c 6f 6f 72 2a | 20 63 6c 2d 63 65 69 6c |r floor*| cl-ceil|
|00002c30| 69 6e 67 20 63 65 69 6c | 69 6e 67 2a 20 63 6c 2d |ing ceil|ing* cl-|
|00002c40| 74 72 75 6e 63 61 74 65 | 20 74 72 75 6e 63 61 74 |truncate| truncat|
|00002c50| 65 2a 20 63 6c 2d 72 6f | 75 6e 64 20 72 6f 75 6e |e* cl-ro|und roun|
|00002c60| 64 2a 20 63 6c 2d 6d 6f | 64 20 6d 6f 64 2a 5d 20 |d* cl-mo|d mod*] |
|00002c70| 33 29 0a 28 66 73 65 74 | 20 27 61 64 6a 6f 69 6e |3).(fset| 'adjoin|
|00002c80| 20 23 5b 28 63 6c 2d 69 | 74 65 6d 20 63 6c 2d 6c | #[(cl-i|tem cl-l|
|00002c90| 69 73 74 20 26 72 65 73 | 74 20 63 6c 2d 6b 65 79 |ist &res|t cl-key|
|00002ca0| 73 29 20 22 08 c1 9a ac | 87 08 ac 8f 5c 6e a7 ac |s) "....|....\n..|
|00002cb0| 8b 5c 6e 0b 3e ab 82 0b | 87 5c 6e 0b 42 87 08 c4 |.\n.>...|.\n.B...|
|00002cc0| 9a ac 83 08 ac 8b 5c 6e | 0b 9d ab 82 0b 87 5c 6e |......\n|......\n|
|00002cd0| 0b 42 87 c5 c6 5c 6e 0b | 08 24 87 22 20 5b 63 6c |.B...\n.|.$." [cl|
|00002ce0| 2d 6b 65 79 73 20 28 3a | 74 65 73 74 20 65 71 29 |-keys (:|test eq)|
|00002cf0| 20 63 6c 2d 69 74 65 6d | 20 63 6c 2d 6c 69 73 74 | cl-item| cl-list|
|00002d00| 20 28 3a 74 65 73 74 20 | 65 71 75 61 6c 29 20 61 | (:test |equal) a|
|00002d10| 70 70 6c 79 20 63 6c 2d | 61 64 6a 6f 69 6e 5d 20 |pply cl-|adjoin] |
|00002d20| 35 20 22 5c 0a 52 65 74 | 75 72 6e 20 49 54 45 4d |5 "\.Ret|urn ITEM|
|00002d30| 20 63 6f 6e 73 65 64 20 | 6f 6e 74 6f 20 74 68 65 | consed |onto the|
|00002d40| 20 66 72 6f 6e 74 20 6f | 66 20 4c 49 53 54 20 6f | front o|f LIST o|
|00002d50| 6e 6c 79 20 69 66 20 69 | 74 27 73 20 6e 6f 74 20 |nly if i|t's not |
|00002d60| 61 6c 72 65 61 64 79 20 | 74 68 65 72 65 2e 0a 4f |already |there..O|
|00002d70| 74 68 65 72 77 69 73 65 | 2c 20 72 65 74 75 72 6e |therwise|, return|
|00002d80| 20 4c 49 53 54 20 75 6e | 6d 6f 64 69 66 69 65 64 | LIST un|modified|
|00002d90| 2e 0a 4b 65 79 77 6f 72 | 64 73 20 73 75 70 70 6f |..Keywor|ds suppo|
|00002da0| 72 74 65 64 3a 20 20 3a | 74 65 73 74 20 3a 74 65 |rted: :|test :te|
|00002db0| 73 74 2d 6e 6f 74 20 3a | 6b 65 79 22 5d 29 0a 28 |st-not :|key"]).(|
|00002dc0| 66 73 65 74 20 27 73 75 | 62 73 74 20 23 5b 28 63 |fset 'su|bst #[(c|
|00002dd0| 6c 2d 6e 65 77 20 63 6c | 2d 6f 6c 64 20 63 6c 2d |l-new cl|-old cl-|
|00002de0| 74 72 65 65 20 26 72 65 | 73 74 20 63 6c 2d 6b 65 |tree &re|st cl-ke|
|00002df0| 79 73 29 20 22 08 ac 88 | 09 a7 ab 8e 09 a8 ac 8a |ys) "...|........|
|00002e00| c2 c3 09 0c 42 43 0d 08 | 24 87 c6 0c 09 0d 23 87 |....BC..|$.....#.|
|00002e10| 22 20 5b 63 6c 2d 6b 65 | 79 73 20 63 6c 2d 6f 6c |" [cl-ke|ys cl-ol|
|00002e20| 64 20 61 70 70 6c 79 20 | 73 75 62 6c 69 73 20 63 |d apply |sublis c|
|00002e30| 6c 2d 6e 65 77 20 63 6c | 2d 74 72 65 65 20 63 6c |l-new cl|-tree cl|
|00002e40| 2d 64 6f 2d 73 75 62 73 | 74 5d 20 35 20 22 5c 0a |-do-subs|t] 5 "\.|
|00002e50| 53 75 62 73 74 69 74 75 | 74 65 20 4e 45 57 20 66 |Substitu|te NEW f|
|00002e60| 6f 72 20 4f 4c 44 20 65 | 76 65 72 79 77 68 65 72 |or OLD e|verywher|
|00002e70| 65 20 69 6e 20 54 52 45 | 45 20 28 6e 6f 6e 2d 64 |e in TRE|E (non-d|
|00002e80| 65 73 74 72 75 63 74 69 | 76 65 6c 79 29 2e 0a 52 |estructi|vely)..R|
|00002e90| 65 74 75 72 6e 20 61 20 | 63 6f 70 79 20 6f 66 20 |eturn a |copy of |
|00002ea0| 54 52 45 45 20 77 69 74 | 68 20 61 6c 6c 20 65 6c |TREE wit|h all el|
|00002eb0| 65 6d 65 6e 74 73 20 60 | 65 71 6c 27 20 74 6f 20 |ements `|eql' to |
|00002ec0| 4f 4c 44 20 72 65 70 6c | 61 63 65 64 20 62 79 20 |OLD repl|aced by |
|00002ed0| 4e 45 57 2e 0a 4b 65 79 | 77 6f 72 64 73 20 73 75 |NEW..Key|words su|
|00002ee0| 70 70 6f 72 74 65 64 3a | 20 20 3a 74 65 73 74 20 |pported:| :test |
|00002ef0| 3a 74 65 73 74 2d 6e 6f | 74 20 3a 6b 65 79 22 5d |:test-no|t :key"]|
|00002f00| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00002f10| 4d 88 c2 c3 4d 88 c4 c5 | 4d 88 c6 c7 c8 c9 23 88 |M...M...|M.....#.|
|00002f20| c6 c7 ca cb 23 87 22 20 | 5b 63 6c 2d 64 6f 2d 73 |....#." |[cl-do-s|
|00002f30| 75 62 73 74 20 23 5b 28 | 63 6c 2d 6e 65 77 20 63 |ubst #[(|cl-new c|
|00002f40| 6c 2d 6f 6c 64 20 63 6c | 2d 74 72 65 65 29 20 22 |l-old cl|-tree) "|
|00002f50| 08 09 3d ab 82 5c 6e 87 | 08 3a ab a2 c3 5c 6e 09 |..=..\n.|.:...\n.|
|00002f60| 08 40 23 c3 5c 6e 09 08 | 41 23 1c 89 1d 08 40 3d |.@#.\n..|A#....@=|
|00002f70| ab 89 0c 08 41 3d ab 83 | 08 aa 83 0d 0c 42 2a 87 |....A=..|.....B*.|
|00002f80| 08 87 22 20 5b 63 6c 2d | 74 72 65 65 20 63 6c 2d |.." [cl-|tree cl-|
|00002f90| 6f 6c 64 20 63 6c 2d 6e | 65 77 20 63 6c 2d 64 6f |old cl-n|ew cl-do|
|00002fa0| 2d 73 75 62 73 74 20 64 | 20 61 5d 20 36 5d 20 61 |-subst d| a] 6] a|
|00002fb0| 63 6f 6e 73 20 23 5b 28 | 61 20 62 20 63 29 20 22 |cons #[(|a b c) "|
|00002fc0| 08 09 42 5c 6e 42 87 22 | 20 5b 61 20 62 20 63 5d |..B\nB."| [a b c]|
|00002fd0| 20 32 5d 20 70 61 69 72 | 6c 69 73 20 23 5b 28 61 | 2] pair|lis #[(a|
|00002fe0| 20 62 20 26 6f 70 74 69 | 6f 6e 61 6c 20 63 29 20 | b &opti|onal c) |
|00002ff0| 22 c0 c1 5c 6e 0b 23 0c | a4 87 22 20 5b 6d 61 70 |"..\n.#.|.." [map|
|00003000| 63 61 72 2a 20 63 6f 6e | 73 20 61 20 62 20 63 5d |car* con|s a b c]|
|00003010| 20 34 5d 20 70 75 74 20 | 63 6c 2d 61 73 73 65 72 | 4] put |cl-asser|
|00003020| 74 69 6f 6e 2d 66 61 69 | 6c 65 64 20 65 72 72 6f |tion-fai|led erro|
|00003030| 72 2d 63 6f 6e 64 69 74 | 69 6f 6e 73 20 28 65 72 |r-condit|ions (er|
|00003040| 72 6f 72 29 20 65 72 72 | 6f 72 2d 6d 65 73 73 61 |ror) err|or-messa|
|00003050| 67 65 20 22 41 73 73 65 | 72 74 69 6f 6e 20 66 61 |ge "Asse|rtion fa|
|00003060| 69 6c 65 64 22 5d 20 34 | 29 0a 28 66 73 65 74 20 |iled"] 4|).(fset |
|00003070| 27 63 6c 2d 61 64 64 2d | 68 6f 6f 6b 20 23 5b 28 |'cl-add-|hook #[(|
|00003080| 68 6f 6f 6b 20 66 75 6e | 63 20 26 6f 70 74 69 6f |hook fun|c &optio|
|00003090| 6e 61 6c 20 61 70 70 65 | 6e 64 29 20 22 c0 09 21 |nal appe|nd) "..!|
|000030a0| ad 82 09 4a 89 1a 3c ab | 89 5c 6e 40 c3 3d ac 83 |...J..<.|.\n@.=..|
|000030b0| 5c 6e 43 12 0c 5c 6e 9d | 3f ad 8e 09 0d ab 86 5c |\nC..\n.|?......\|
|000030c0| 6e 0c 43 a4 aa 83 0c 5c | 6e 42 4c 29 87 22 20 5b |n.C....\|nBL)." [|
|000030d0| 62 6f 75 6e 64 70 20 68 | 6f 6f 6b 20 6f 6c 64 20 |boundp h|ook old |
|000030e0| 6c 61 6d 62 64 61 20 66 | 75 6e 63 20 61 70 70 65 |lambda f|unc appe|
|000030f0| 6e 64 5d 20 34 20 22 5c | 0a 41 64 64 20 74 6f 20 |nd] 4 "\|.Add to |
|00003100| 68 6f 6f 6b 20 76 61 72 | 69 61 62 6c 65 20 48 4f |hook var|iable HO|
|00003110| 4f 4b 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |OK the f|unction |
|00003120| 46 55 4e 43 2e 0a 46 55 | 4e 43 20 69 73 20 6e 6f |FUNC..FU|NC is no|
|00003130| 74 20 61 64 64 65 64 20 | 69 66 20 69 74 20 61 6c |t added |if it al|
|00003140| 72 65 61 64 79 20 61 70 | 70 65 61 72 73 20 6f 6e |ready ap|pears on|
|00003150| 20 74 68 65 20 6c 69 73 | 74 20 73 74 6f 72 65 64 | the lis|t stored|
|00003160| 20 69 6e 20 48 4f 4f 4b | 2e 22 5d 29 0a 28 62 79 | in HOOK|."]).(by|
|00003170| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 85 c2 c1 |te-code |"..!....|
|00003180| c3 5c 22 88 c4 c5 c6 5c | 22 88 c4 c7 c8 5c 22 88 |.\"....\|"....\".|
|00003190| c9 ca 21 88 cb cc 21 ac | 83 cd 16 0c ce cf 4d 88 |..!...!.|......M.|
|000031a0| ce 20 88 c1 d0 ce 5c 22 | 88 c9 d1 21 88 c9 d2 21 |. ....\"|...!...!|
|000031b0| 88 d3 d4 21 87 22 20 5b | 66 62 6f 75 6e 64 70 20 |...!." [|fboundp |
|000031c0| 61 64 64 2d 68 6f 6f 6b | 20 64 65 66 61 6c 69 61 |add-hook| defalia|
|000031d0| 73 20 63 6c 2d 61 64 64 | 2d 68 6f 6f 6b 20 6d 61 |s cl-add|-hook ma|
|000031e0| 70 63 61 72 20 23 5b 28 | 73 65 74 29 20 22 c0 c1 |pcar #[(|set) "..|
|000031f0| 5c 6e 89 1b 41 41 29 5c | 22 87 22 20 5b 6d 61 70 |\n..AA)\|"." [map|
|00003200| 63 61 72 20 23 5b 28 66 | 75 6e 63 29 20 22 c0 09 |car #[(f|unc) "..|
|00003210| 5c 6e 40 c3 89 5c 6e 41 | 40 25 87 22 20 5b 61 75 |\n@..\nA|@%." [au|
|00003220| 74 6f 6c 6f 61 64 20 66 | 75 6e 63 20 73 65 74 20 |toload f|unc set |
|00003230| 6e 69 6c 5d 20 36 5d 20 | 73 65 74 20 78 5d 20 34 |nil] 6] |set x] 4|
|00003240| 5d 20 28 28 22 63 6c 2d | 65 78 74 72 61 22 20 6e |] (("cl-|extra" n|
|00003250| 69 6c 20 63 6f 65 72 63 | 65 20 65 71 75 61 6c 70 |il coerc|e equalp|
|00003260| 20 63 6c 2d 6d 61 70 2d | 6b 65 79 6d 61 70 20 6d | cl-map-|keymap m|
|00003270| 61 70 6c 69 73 74 20 6d | 61 70 63 20 6d 61 70 6c |aplist m|apc mapl|
|00003280| 20 6d 61 70 63 61 6e 20 | 6d 61 70 63 6f 6e 20 63 | mapcan |mapcon c|
|00003290| 6c 2d 6d 61 70 2d 6b 65 | 79 6d 61 70 20 63 6c 2d |l-map-ke|ymap cl-|
|000032a0| 6d 61 70 2d 6b 65 79 6d | 61 70 2d 72 65 63 75 72 |map-keym|ap-recur|
|000032b0| 73 69 76 65 6c 79 20 63 | 6c 2d 6d 61 70 2d 69 6e |sively c|l-map-in|
|000032c0| 74 65 72 76 61 6c 73 20 | 63 6c 2d 6d 61 70 2d 6f |tervals |cl-map-o|
|000032d0| 76 65 72 6c 61 79 73 20 | 63 6c 2d 73 65 74 2d 66 |verlays |cl-set-f|
|000032e0| 72 61 6d 65 2d 76 69 73 | 69 62 6c 65 2d 70 20 63 |rame-vis|ible-p c|
|000032f0| 6c 2d 66 6c 6f 61 74 2d | 6c 69 6d 69 74 73 20 67 |l-float-|limits g|
|00003300| 63 64 20 6c 63 6d 20 69 | 73 71 72 74 20 65 78 70 |cd lcm i|sqrt exp|
|00003310| 74 20 66 6c 6f 6f 72 2a | 20 63 65 69 6c 69 6e 67 |t floor*| ceiling|
|00003320| 2a 20 74 72 75 6e 63 61 | 74 65 2a 20 72 6f 75 6e |* trunca|te* roun|
|00003330| 64 2a 20 6d 6f 64 2a 20 | 72 65 6d 2a 20 73 69 67 |d* mod* |rem* sig|
|00003340| 6e 75 6d 20 72 61 6e 64 | 6f 6d 2a 20 6d 61 6b 65 |num rand|om* make|
|00003350| 2d 72 61 6e 64 6f 6d 2d | 73 74 61 74 65 20 72 61 |-random-|state ra|
|00003360| 6e 64 6f 6d 2d 73 74 61 | 74 65 2d 70 20 73 75 62 |ndom-sta|te-p sub|
|00003370| 73 65 71 20 63 6f 6e 63 | 61 74 65 6e 61 74 65 20 |seq conc|atenate |
|00003380| 63 6c 2d 6d 61 70 63 61 | 72 2d 6d 61 6e 79 20 6d |cl-mapca|r-many m|
|00003390| 61 70 20 73 6f 6d 65 20 | 65 76 65 72 79 20 6e 6f |ap some |every no|
|000033a0| 74 61 6e 79 20 6e 6f 74 | 65 76 65 72 79 20 72 65 |tany not|every re|
|000033b0| 76 61 70 70 65 6e 64 20 | 6e 72 65 63 6f 6e 63 20 |vappend |nreconc |
|000033c0| 6c 69 73 74 2d 6c 65 6e | 67 74 68 20 74 61 69 6c |list-len|gth tail|
|000033d0| 70 20 63 6f 70 79 2d 74 | 72 65 65 20 67 65 74 2a |p copy-t|ree get*|
|000033e0| 20 67 65 74 66 20 63 6c | 2d 73 65 74 2d 67 65 74 | getf cl|-set-get|
|000033f0| 66 20 63 6c 2d 64 6f 2d | 72 65 6d 66 20 72 65 6d |f cl-do-|remf rem|
|00003400| 70 72 6f 70 20 6d 61 6b | 65 2d 68 61 73 68 2d 74 |prop mak|e-hash-t|
|00003410| 61 62 6c 65 20 63 6c 2d | 68 61 73 68 2d 6c 6f 6f |able cl-|hash-loo|
|00003420| 6b 75 70 20 67 65 74 68 | 61 73 68 20 63 6c 2d 70 |kup geth|ash cl-p|
|00003430| 75 74 68 61 73 68 20 72 | 65 6d 68 61 73 68 20 63 |uthash r|emhash c|
|00003440| 6c 72 68 61 73 68 20 6d | 61 70 68 61 73 68 20 68 |lrhash m|aphash h|
|00003450| 61 73 68 2d 74 61 62 6c | 65 2d 70 20 68 61 73 68 |ash-tabl|e-p hash|
|00003460| 2d 74 61 62 6c 65 2d 63 | 6f 75 6e 74 20 63 6c 2d |-table-c|ount cl-|
|00003470| 70 72 6f 67 76 2d 62 65 | 66 6f 72 65 20 63 6c 2d |progv-be|fore cl-|
|00003480| 70 72 65 74 74 79 65 78 | 70 61 6e 64 20 63 6c 2d |prettyex|pand cl-|
|00003490| 6d 61 63 72 6f 65 78 70 | 61 6e 64 2d 61 6c 6c 29 |macroexp|and-all)|
|000034a0| 20 28 22 63 6c 2d 73 65 | 71 22 20 6e 69 6c 20 72 | ("cl-se|q" nil r|
|000034b0| 65 64 75 63 65 20 66 69 | 6c 6c 20 72 65 70 6c 61 |educe fi|ll repla|
|000034c0| 63 65 20 72 65 6d 71 20 | 72 65 6d 6f 76 65 20 72 |ce remq |remove r|
|000034d0| 65 6d 6f 76 65 2a 20 72 | 65 6d 6f 76 65 2d 69 66 |emove* r|emove-if|
|000034e0| 20 72 65 6d 6f 76 65 2d | 69 66 2d 6e 6f 74 20 64 | remove-|if-not d|
|000034f0| 65 6c 65 74 65 20 64 65 | 6c 65 74 65 2a 20 64 65 |elete de|lete* de|
|00003500| 6c 65 74 65 2d 69 66 20 | 64 65 6c 65 74 65 2d 69 |lete-if |delete-i|
|00003510| 66 2d 6e 6f 74 20 72 65 | 6d 6f 76 65 2d 64 75 70 |f-not re|move-dup|
|00003520| 6c 69 63 61 74 65 73 20 | 64 65 6c 65 74 65 2d 64 |licates |delete-d|
|00003530| 75 70 6c 69 63 61 74 65 | 73 20 73 75 62 73 74 69 |uplicate|s substi|
|00003540| 74 75 74 65 20 73 75 62 | 73 74 69 74 75 74 65 2d |tute sub|stitute-|
|00003550| 69 66 20 73 75 62 73 74 | 69 74 75 74 65 2d 69 66 |if subst|itute-if|
|00003560| 2d 6e 6f 74 20 6e 73 75 | 62 73 74 69 74 75 74 65 |-not nsu|bstitute|
|00003570| 20 6e 73 75 62 73 74 69 | 74 75 74 65 2d 69 66 20 | nsubsti|tute-if |
|00003580| 6e 73 75 62 73 74 69 74 | 75 74 65 2d 69 66 2d 6e |nsubstit|ute-if-n|
|00003590| 6f 74 20 66 69 6e 64 20 | 66 69 6e 64 2d 69 66 20 |ot find |find-if |
|000035a0| 66 69 6e 64 2d 69 66 2d | 6e 6f 74 20 70 6f 73 69 |find-if-|not posi|
|000035b0| 74 69 6f 6e 20 70 6f 73 | 69 74 69 6f 6e 2d 69 66 |tion pos|ition-if|
|000035c0| 20 70 6f 73 69 74 69 6f | 6e 2d 69 66 2d 6e 6f 74 | positio|n-if-not|
|000035d0| 20 63 6f 75 6e 74 20 63 | 6f 75 6e 74 2d 69 66 20 | count c|ount-if |
|000035e0| 63 6f 75 6e 74 2d 69 66 | 2d 6e 6f 74 20 6d 69 73 |count-if|-not mis|
|000035f0| 6d 61 74 63 68 20 73 65 | 61 72 63 68 20 73 6f 72 |match se|arch sor|
|00003600| 74 2a 20 73 74 61 62 6c | 65 2d 73 6f 72 74 20 6d |t* stabl|e-sort m|
|00003610| 65 72 67 65 20 6d 65 6d | 62 65 72 2a 20 6d 65 6d |erge mem|ber* mem|
|00003620| 62 65 72 2d 69 66 20 6d | 65 6d 62 65 72 2d 69 66 |ber-if m|ember-if|
|00003630| 2d 6e 6f 74 20 63 6c 2d | 61 64 6a 6f 69 6e 20 61 |-not cl-|adjoin a|
|00003640| 73 73 6f 63 2a 20 61 73 | 73 6f 63 2d 69 66 20 61 |ssoc* as|soc-if a|
|00003650| 73 73 6f 63 2d 69 66 2d | 6e 6f 74 20 72 61 73 73 |ssoc-if-|not rass|
|00003660| 6f 63 2a 20 72 61 73 73 | 6f 63 20 72 61 73 73 6f |oc* rass|oc rasso|
|00003670| 63 2d 69 66 20 72 61 73 | 73 6f 63 2d 69 66 2d 6e |c-if ras|soc-if-n|
|00003680| 6f 74 20 75 6e 69 6f 6e | 20 6e 75 6e 69 6f 6e 20 |ot union| nunion |
|00003690| 69 6e 74 65 72 73 65 63 | 74 69 6f 6e 20 6e 69 6e |intersec|tion nin|
|000036a0| 74 65 72 73 65 63 74 69 | 6f 6e 20 73 65 74 2d 64 |tersecti|on set-d|
|000036b0| 69 66 66 65 72 65 6e 63 | 65 20 6e 73 65 74 2d 64 |ifferenc|e nset-d|
|000036c0| 69 66 66 65 72 65 6e 63 | 65 20 73 65 74 2d 65 78 |ifferenc|e set-ex|
|000036d0| 63 6c 75 73 69 76 65 2d | 6f 72 20 6e 73 65 74 2d |clusive-|or nset-|
|000036e0| 65 78 63 6c 75 73 69 76 | 65 2d 6f 72 20 73 75 62 |exclusiv|e-or sub|
|000036f0| 73 65 74 70 20 73 75 62 | 73 74 2d 69 66 20 73 75 |setp sub|st-if su|
|00003700| 62 73 74 2d 69 66 2d 6e | 6f 74 20 6e 73 75 62 73 |bst-if-n|ot nsubs|
|00003710| 74 20 6e 73 75 62 73 74 | 2d 69 66 20 6e 73 75 62 |t nsubst|-if nsub|
|00003720| 73 74 2d 69 66 2d 6e 6f | 74 20 73 75 62 6c 69 73 |st-if-no|t sublis|
|00003730| 20 6e 73 75 62 6c 69 73 | 20 74 72 65 65 2d 65 71 | nsublis| tree-eq|
|00003740| 75 61 6c 29 20 28 22 63 | 6c 2d 6d 61 63 73 22 20 |ual) ("c|l-macs" |
|00003750| 6e 69 6c 20 67 65 6e 73 | 79 6d 20 67 65 6e 74 65 |nil gens|ym gente|
|00003760| 6d 70 20 74 79 70 65 70 | 20 63 6c 2d 64 6f 2d 70 |mp typep| cl-do-p|
|00003770| 6f 70 20 67 65 74 2d 73 | 65 74 66 2d 6d 65 74 68 |op get-s|etf-meth|
|00003780| 6f 64 20 63 6c 2d 73 74 | 72 75 63 74 2d 73 65 74 |od cl-st|ruct-set|
|00003790| 66 2d 65 78 70 61 6e 64 | 65 72 20 63 6f 6d 70 69 |f-expand|er compi|
|000037a0| 6c 65 72 2d 6d 61 63 72 | 6f 65 78 70 61 6e 64 20 |ler-macr|oexpand |
|000037b0| 63 6c 2d 63 6f 6d 70 69 | 6c 65 2d 74 69 6d 65 2d |cl-compi|le-time-|
|000037c0| 69 6e 69 74 29 20 28 22 | 63 6c 2d 6d 61 63 73 22 |init) ("|cl-macs"|
|000037d0| 20 74 20 64 65 66 75 6e | 2a 20 64 65 66 6d 61 63 | t defun|* defmac|
|000037e0| 72 6f 2a 20 66 75 6e 63 | 74 69 6f 6e 2a 20 64 65 |ro* func|tion* de|
|000037f0| 73 74 72 75 63 74 75 72 | 69 6e 67 2d 62 69 6e 64 |structur|ing-bind|
|00003800| 20 65 76 61 6c 2d 77 68 | 65 6e 20 65 76 61 6c 2d | eval-wh|en eval-|
|00003810| 77 68 65 6e 2d 63 6f 6d | 70 69 6c 65 20 6c 6f 61 |when-com|pile loa|
|00003820| 64 2d 74 69 6d 65 2d 76 | 61 6c 75 65 20 63 61 73 |d-time-v|alue cas|
|00003830| 65 20 65 63 61 73 65 20 | 74 79 70 65 63 61 73 65 |e ecase |typecase|
|00003840| 20 65 74 79 70 65 63 61 | 73 65 20 62 6c 6f 63 6b | etypeca|se block|
|00003850| 20 72 65 74 75 72 6e 20 | 72 65 74 75 72 6e 2d 66 | return |return-f|
|00003860| 72 6f 6d 20 6c 6f 6f 70 | 20 64 6f 20 64 6f 2a 20 |rom loop| do do* |
|00003870| 64 6f 6c 69 73 74 20 64 | 6f 74 69 6d 65 73 20 64 |dolist d|otimes d|
|00003880| 6f 2d 73 79 6d 62 6f 6c | 73 20 64 6f 2d 61 6c 6c |o-symbol|s do-all|
|00003890| 2d 73 79 6d 62 6f 6c 73 | 20 70 73 65 74 71 20 70 |-symbols| psetq p|
|000038a0| 72 6f 67 76 20 66 6c 65 | 74 20 6c 61 62 65 6c 73 |rogv fle|t labels|
|000038b0| 20 6d 61 63 72 6f 6c 65 | 74 20 73 79 6d 62 6f 6c | macrole|t symbol|
|000038c0| 2d 6d 61 63 72 6f 6c 65 | 74 20 6c 65 78 69 63 61 |-macrole|t lexica|
|000038d0| 6c 2d 6c 65 74 20 6c 65 | 78 69 63 61 6c 2d 6c 65 |l-let le|xical-le|
|000038e0| 74 2a 20 6d 75 6c 74 69 | 70 6c 65 2d 76 61 6c 75 |t* multi|ple-valu|
|000038f0| 65 2d 62 69 6e 64 20 6d | 75 6c 74 69 70 6c 65 2d |e-bind m|ultiple-|
|00003900| 76 61 6c 75 65 2d 73 65 | 74 71 20 6c 6f 63 61 6c |value-se|tq local|
|00003910| 6c 79 20 74 68 65 20 64 | 65 63 6c 61 72 65 20 64 |ly the d|eclare d|
|00003920| 65 66 69 6e 65 2d 73 65 | 74 66 2d 6d 65 74 68 6f |efine-se|tf-metho|
|00003930| 64 20 64 65 66 73 65 74 | 66 20 64 65 66 69 6e 65 |d defset|f define|
|00003940| 2d 6d 6f 64 69 66 79 2d | 6d 61 63 72 6f 20 73 65 |-modify-|macro se|
|00003950| 74 66 20 70 73 65 74 66 | 20 72 65 6d 66 20 73 68 |tf psetf| remf sh|
|00003960| 69 66 74 66 20 72 6f 74 | 61 74 65 66 20 6c 65 74 |iftf rot|atef let|
|00003970| 66 20 6c 65 74 66 2a 20 | 63 61 6c 6c 66 20 63 61 |f letf* |callf ca|
|00003980| 6c 6c 66 32 20 64 65 66 | 73 74 72 75 63 74 20 63 |llf2 def|struct c|
|00003990| 68 65 63 6b 2d 74 79 70 | 65 20 61 73 73 65 72 74 |heck-typ|e assert|
|000039a0| 20 69 67 6e 6f 72 65 2d | 65 72 72 6f 72 73 20 64 | ignore-|errors d|
|000039b0| 65 66 69 6e 65 2d 63 6f | 6d 70 69 6c 65 72 2d 6d |efine-co|mpiler-m|
|000039c0| 61 63 72 6f 29 29 20 23 | 5b 28 65 6e 74 72 79 29 |acro)) #|[(entry)|
|000039d0| 20 22 c0 c1 5c 6e 40 5c | 22 87 22 20 5b 6d 61 70 | "..\n@\|"." [map|
|000039e0| 63 61 72 20 23 5b 28 66 | 75 6e 63 29 20 22 c0 09 |car #[(f|unc) "..|
|000039f0| c2 0b 41 40 23 88 c0 09 | c4 0b 41 40 23 88 09 c5 |..A@#...|..A@#...|
|00003a00| 4e ae 87 c0 09 c5 c6 0b | 38 23 87 22 20 5b 70 75 |N.......|8#." [pu|
|00003a10| 74 20 66 75 6e 63 20 6c | 69 73 70 2d 69 6e 64 65 |t func l|isp-inde|
|00003a20| 6e 74 2d 66 75 6e 63 74 | 69 6f 6e 20 65 6e 74 72 |nt-funct|ion entr|
|00003a30| 79 20 6c 69 73 70 2d 69 | 6e 64 65 6e 74 2d 68 6f |y lisp-i|ndent-ho|
|00003a40| 6f 6b 20 65 64 65 62 75 | 67 2d 66 6f 72 6d 2d 73 |ok edebu|g-form-s|
|00003a50| 70 65 63 20 32 5d 20 35 | 5d 20 65 6e 74 72 79 5d |pec 2] 5|] entry]|
|00003a60| 20 33 5d 20 28 28 28 64 | 65 66 75 6e 2a 20 64 65 | 3] (((d|efun* de|
|00003a70| 66 6d 61 63 72 6f 2a 29 | 20 32 29 20 28 28 66 75 |fmacro*)| 2) ((fu|
|00003a80| 6e 63 74 69 6f 6e 2a 29 | 20 6e 69 6c 20 28 26 6f |nction*)| nil (&o|
|00003a90| 72 20 73 79 6d 62 6f 6c | 70 20 28 5b 26 6f 70 74 |r symbol|p ([&opt|
|00003aa0| 69 6f 6e 61 6c 20 27 6d | 61 63 72 6f 5d 20 27 6c |ional 'm|acro] 'l|
|00003ab0| 61 6d 62 64 61 20 28 26 | 72 65 73 74 20 73 65 78 |ambda (&|rest sex|
|00003ac0| 70 29 20 26 72 65 73 74 | 20 66 6f 72 6d 29 29 29 |p) &rest| form)))|
|00003ad0| 20 28 28 65 76 61 6c 2d | 77 68 65 6e 29 20 31 20 | ((eval-|when) 1 |
|00003ae0| 28 73 65 78 70 20 26 72 | 65 73 74 20 66 6f 72 6d |(sexp &r|est form|
|00003af0| 29 29 20 28 28 77 68 65 | 6e 20 75 6e 6c 65 73 73 |)) ((whe|n unless|
|00003b00| 29 20 31 20 28 26 72 65 | 73 74 20 66 6f 72 6d 29 |) 1 (&re|st form)|
|00003b10| 29 20 28 28 64 65 63 6c | 61 72 65 29 20 6e 69 6c |) ((decl|are) nil|
|00003b20| 20 28 26 72 65 73 74 20 | 73 65 78 70 29 29 20 28 | (&rest |sexp)) (|
|00003b30| 28 74 68 65 29 20 31 20 | 28 73 65 78 70 20 26 72 |(the) 1 |(sexp &r|
|00003b40| 65 73 74 20 66 6f 72 6d | 29 29 20 28 28 63 61 73 |est form|)) ((cas|
|00003b50| 65 20 65 63 61 73 65 20 | 74 79 70 65 63 61 73 65 |e ecase |typecase|
|00003b60| 20 65 74 79 70 65 63 61 | 73 65 29 20 31 20 28 66 | etypeca|se) 1 (f|
|00003b70| 6f 72 6d 20 26 72 65 73 | 74 20 28 73 65 78 70 20 |orm &res|t (sexp |
|00003b80| 26 72 65 73 74 20 66 6f | 72 6d 29 29 29 20 28 28 |&rest fo|rm))) ((|
|00003b90| 62 6c 6f 63 6b 20 72 65 | 74 75 72 6e 2d 66 72 6f |block re|turn-fro|
|00003ba0| 6d 29 20 31 20 28 73 65 | 78 70 20 26 72 65 73 74 |m) 1 (se|xp &rest|
|00003bb0| 20 66 6f 72 6d 29 29 20 | 28 28 72 65 74 75 72 6e | form)) |((return|
|00003bc0| 29 20 6e 69 6c 20 28 26 | 6f 70 74 69 6f 6e 61 6c |) nil (&|optional|
|00003bd0| 20 66 6f 72 6d 29 29 20 | 28 28 64 6f 20 64 6f 2a | form)) |((do do*|
|00003be0| 29 20 32 20 28 28 26 72 | 65 73 74 20 26 6f 72 20 |) 2 ((&r|est &or |
|00003bf0| 73 79 6d 62 6f 6c 70 20 | 28 73 79 6d 62 6f 6c 70 |symbolp |(symbolp|
|00003c00| 20 26 6f 70 74 69 6f 6e | 61 6c 20 66 6f 72 6d 20 | &option|al form |
|00003c10| 66 6f 72 6d 29 29 20 28 | 66 6f 72 6d 20 26 72 65 |form)) (|form &re|
|00003c20| 73 74 20 66 6f 72 6d 29 | 20 26 72 65 73 74 20 66 |st form)| &rest f|
|00003c30| 6f 72 6d 29 29 20 28 28 | 64 6f 6c 69 73 74 20 64 |orm)) ((|dolist d|
|00003c40| 6f 74 69 6d 65 73 29 20 | 31 20 28 28 73 79 6d 62 |otimes) |1 ((symb|
|00003c50| 6f 6c 70 20 66 6f 72 6d | 20 26 72 65 73 74 20 66 |olp form| &rest f|
|00003c60| 6f 72 6d 29 20 26 72 65 | 73 74 20 66 6f 72 6d 29 |orm) &re|st form)|
|00003c70| 29 20 28 28 64 6f 2d 73 | 79 6d 62 6f 6c 73 29 20 |) ((do-s|ymbols) |
|00003c80| 31 20 28 28 73 79 6d 62 | 6f 6c 70 20 66 6f 72 6d |1 ((symb|olp form|
|00003c90| 20 26 6f 70 74 69 6f 6e | 61 6c 20 66 6f 72 6d 20 | &option|al form |
|00003ca0| 66 6f 72 6d 29 20 26 72 | 65 73 74 20 66 6f 72 6d |form) &r|est form|
|00003cb0| 29 29 20 28 28 64 6f 2d | 61 6c 6c 2d 73 79 6d 62 |)) ((do-|all-symb|
|00003cc0| 6f 6c 73 29 20 31 20 28 | 28 73 79 6d 62 6f 6c 70 |ols) 1 (|(symbolp|
|00003cd0| 20 66 6f 72 6d 20 26 6f | 70 74 69 6f 6e 61 6c 20 | form &o|ptional |
|00003ce0| 66 6f 72 6d 29 20 26 72 | 65 73 74 20 66 6f 72 6d |form) &r|est form|
|00003cf0| 29 29 20 28 28 70 73 65 | 74 71 20 73 65 74 66 20 |)) ((pse|tq setf |
|00003d00| 70 73 65 74 66 29 20 6e | 69 6c 20 65 64 65 62 75 |psetf) n|il edebu|
|00003d10| 67 2d 73 65 74 71 2d 66 | 6f 72 6d 29 20 28 28 70 |g-setq-f|orm) ((p|
|00003d20| 72 6f 67 76 29 20 32 20 | 28 26 72 65 73 74 20 66 |rogv) 2 |(&rest f|
|00003d30| 6f 72 6d 29 29 20 28 28 | 66 6c 65 74 20 6c 61 62 |orm)) ((|flet lab|
|00003d40| 65 6c 73 20 6d 61 63 72 | 6f 6c 65 74 29 20 31 20 |els macr|olet) 1 |
|00003d50| 28 28 26 72 65 73 74 20 | 28 73 65 78 70 20 73 65 |((&rest |(sexp se|
|00003d60| 78 70 20 26 72 65 73 74 | 20 66 6f 72 6d 29 29 20 |xp &rest| form)) |
|00003d70| 26 72 65 73 74 20 66 6f | 72 6d 29 29 20 28 28 73 |&rest fo|rm)) ((s|
|00003d80| 79 6d 62 6f 6c 2d 6d 61 | 63 72 6f 6c 65 74 20 6c |ymbol-ma|crolet l|
|00003d90| 65 78 69 63 61 6c 2d 6c | 65 74 20 6c 65 78 69 63 |exical-l|et lexic|
|00003da0| 61 6c 2d 6c 65 74 2a 29 | 20 31 20 28 28 26 72 65 |al-let*)| 1 ((&re|
|00003db0| 73 74 20 26 6f 72 20 73 | 79 6d 62 6f 6c 70 20 28 |st &or s|ymbolp (|
|00003dc0| 73 79 6d 62 6f 6c 70 20 | 66 6f 72 6d 29 29 20 26 |symbolp |form)) &|
|00003dd0| 72 65 73 74 20 66 6f 72 | 6d 29 29 20 28 28 6d 75 |rest for|m)) ((mu|
|00003de0| 6c 74 69 70 6c 65 2d 76 | 61 6c 75 65 2d 62 69 6e |ltiple-v|alue-bin|
|00003df0| 64 29 20 32 20 28 28 26 | 72 65 73 74 20 73 79 6d |d) 2 ((&|rest sym|
|00003e00| 62 6f 6c 70 29 20 26 72 | 65 73 74 20 66 6f 72 6d |bolp) &r|est form|
|00003e10| 29 29 20 28 28 6d 75 6c | 74 69 70 6c 65 2d 76 61 |)) ((mul|tiple-va|
|00003e20| 6c 75 65 2d 73 65 74 71 | 29 20 31 20 28 28 26 72 |lue-setq|) 1 ((&r|
|00003e30| 65 73 74 20 73 79 6d 62 | 6f 6c 70 29 20 26 72 65 |est symb|olp) &re|
|00003e40| 73 74 20 66 6f 72 6d 29 | 29 20 28 28 69 6e 63 66 |st form)|) ((incf|
|00003e50| 20 64 65 63 66 20 72 65 | 6d 66 20 70 6f 70 20 70 | decf re|mf pop p|
|00003e60| 75 73 68 20 70 75 73 68 | 6e 65 77 20 73 68 69 66 |ush push|new shif|
|00003e70| 74 66 20 72 6f 74 61 74 | 65 66 29 20 6e 69 6c 20 |tf rotat|ef) nil |
|00003e80| 28 26 72 65 73 74 20 66 | 6f 72 6d 29 29 20 28 28 |(&rest f|orm)) ((|
|00003e90| 6c 65 74 66 20 6c 65 74 | 66 2a 29 20 31 20 28 28 |letf let|f*) 1 ((|
|00003ea0| 26 72 65 73 74 20 28 26 | 72 65 73 74 20 66 6f 72 |&rest (&|rest for|
|00003eb0| 6d 29 29 20 26 72 65 73 | 74 20 66 6f 72 6d 29 29 |m)) &res|t form))|
|00003ec0| 20 28 28 63 61 6c 6c 66 | 20 64 65 73 74 72 75 63 | ((callf| destruc|
|00003ed0| 74 75 72 69 6e 67 2d 62 | 69 6e 64 29 20 32 20 28 |turing-b|ind) 2 (|
|00003ee0| 73 65 78 70 20 66 6f 72 | 6d 20 26 72 65 73 74 20 |sexp for|m &rest |
|00003ef0| 66 6f 72 6d 29 29 20 28 | 28 63 61 6c 6c 66 32 29 |form)) (|(callf2)|
|00003f00| 20 33 20 28 73 65 78 70 | 20 66 6f 72 6d 20 66 6f | 3 (sexp| form fo|
|00003f10| 72 6d 20 26 72 65 73 74 | 20 66 6f 72 6d 29 29 20 |rm &rest| form)) |
|00003f20| 28 28 6c 6f 6f 70 29 20 | 6e 69 6c 20 28 26 72 65 |((loop) |nil (&re|
|00003f30| 73 74 20 26 6f 72 20 73 | 79 6d 62 6f 6c 70 20 66 |st &or s|ymbolp f|
|00003f40| 6f 72 6d 29 29 20 28 28 | 69 67 6e 6f 72 65 2d 65 |orm)) ((|ignore-e|
|00003f50| 72 72 6f 72 73 29 20 30 | 20 28 26 72 65 73 74 20 |rrors) 0| (&rest |
|00003f60| 66 6f 72 6d 29 29 29 20 | 70 72 6f 76 69 64 65 20 |form))) |provide |
|00003f70| 63 6c 2d 31 39 20 62 6f | 75 6e 64 70 20 63 6c 2d |cl-19 bo|undp cl-|
|00003f80| 68 61 63 6b 65 64 2d 66 | 6c 61 67 20 6e 69 6c 20 |hacked-f|lag nil |
|00003f90| 63 6c 2d 68 61 63 6b 2d | 62 79 74 65 2d 63 6f 6d |cl-hack-|byte-com|
|00003fa0| 70 69 6c 65 72 20 23 5b | 6e 69 6c 20 22 08 3f ad |piler #[|nil ".?.|
|00003fb0| 8b c1 c2 21 ad 86 c3 20 | 88 c4 89 10 87 22 20 5b |...!... |....." [|
|00003fc0| 63 6c 2d 68 61 63 6b 65 | 64 2d 66 6c 61 67 20 66 |cl-hacke|d-flag f|
|00003fd0| 62 6f 75 6e 64 70 20 62 | 79 74 65 2d 63 6f 6d 70 |boundp b|yte-comp|
|00003fe0| 69 6c 65 2d 66 69 6c 65 | 2d 66 6f 72 6d 20 63 6c |ile-file|-form cl|
|00003ff0| 2d 63 6f 6d 70 69 6c 65 | 2d 74 69 6d 65 2d 69 6e |-compile|-time-in|
|00004000| 69 74 20 74 5d 20 32 5d | 20 65 6d 61 63 73 2d 6c |it t] 2]| emacs-l|
|00004010| 69 73 70 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 20 63 6c |isp-mode|-hook cl|
|00004020| 20 6d 69 6e 69 2d 63 6c | 20 72 75 6e 2d 68 6f 6f | mini-cl| run-hoo|
|00004030| 6b 73 20 63 6c 2d 6c 6f | 61 64 2d 68 6f 6f 6b 5d |ks cl-lo|ad-hook]|
|00004040| 20 33 29 0a | | 3). | |
+--------+-------------------------+-------------------------+--------+--------+
